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ALPHABETICAL INDEX 


Introduction 
How To Use The Index 


The index, table of contents, list of illustrations, and list of tables are used in conjunction 

to obtain the location of the desired subject. Once the subject or topic has been located 

in the index, use the appropriate paragraph number, figure number, or table number to obtain 
the corresponding page number from the table of contents, list of illustrations, or list of tables. 
The table of contents does not contain four-level paragraph entries. Therefore, for four-level 
paragraph numbers such as 2.3.1.2, use the three-level number and the corresponding page 

number. In this case, the three-level number is 2.3.1. 


Index Entries 


The following index lists key words and concepts from the subject material of the manual 
together with the area(s) in the manual that supply major coverage of the listed concept. 
The numbers along the right side of the listing reference the following manual! areas: 


- Sections - References to Sections of the manual appear as "Section x" with the symbol 
x representing any numeric quantity. 


° Appendixes - References to Appendixes of the manual appear as "Appendix y" with 
the symbol y representing any capital letter. 


e Paragraphs - References to paragraphs of the manual appear as a series of alphanumeric 
or numeric characters punctuated with decimal points. Only the first character of 
the string may be a letter; all subsequent characters are numbers. The first character 
refers to the section or appendix of the manual in which the paragraph is found. 


? Tables - References to tables in the manual! are represented by the capital letter T 
followed immediately by another alphanumeric character (representing the section 
‘or appendix of the manual! containing the table). The second character is followed 
by a dash (-) and a number: 


Tx-yy 


e Figures - References to figures in the manual are represented by the capital letter 
F followed immediately by another alphanumeric character (representing the section 
or appendix of the manual! containing the figure). The second character is followed 
by a dash (-) and a number: 


Fx-yy 


. Other entries in the Index - References to other entries in the index are preceded 
by the word "See" followed by the referenced entry. 


Abnormai Termination Dump 
Analysis 
Analysis, Unformatted 
Unformatted 


ABP Command 
ABS Function 
ACCESS: 
Declaration 
Procedures, System Common 
Routine 
Variable 


ACTIVATE Procedure 
ADD Command 
Adding Operators 
ALTOBJ Command 


Analysis: 
Abnormal Termination Dump 
Error 
Stack Frame 
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F44-2 
14.7.4 
14.7.5 
Fi4—4 


14.6.1.1 


5.295,..1025. 1135.12 


8.2.638.9 
15.3.6 
F8-5 
F.5.1;F8-4 


Unformatted Abnormal Termination 


Dump 14.7.5 
AND Operator 4,235.3 
ARCTAN Function 5.1035.11;5.12 


Arithmetic Operation Type Conversions 1.2.2 


Array: 
Display 
Packed 
Parameters, Dynamic 
Type 
Function 
Procedures 


Arrays: 

Dynamic 
Multidimensional 
ASCIi Character Set 
Assembly Language Routines 


ASSERT Statement 
ASSERTS Option 

Assign Breakpoint-Pascal 
Command 

Assignment Operation Type 
Conversions 

Assignment Statement 


Backus-Naur Form 
Backus-—Normal Form 
Batch: 
CONFIG Execution 
SPLITPGM Execution 
Stream 
Pascal! Execution 


Appendix G;TG- 
1 


F.1;F. 


BID Procedure 15.3.4.1 
Block: 

Structure 8.6 

Syntax Diagram F8-1 
Blocks: 

Global Common 15.6 

Local Common 15.6 
BNF: 

Examples 3,1 

Productions Appendix D 
BOOLEAN Type 5 3365725 

Operators §.3 
BUILD PROCESS Command T2.303e1 
Call: 

Function a 

Procedure Y, 
Supervisor 15.3.8 

Calling, Routine F.5.2 
CASE Statement 5.8;5.8.1 
CAT PROCESS Command 1M Pr Pe 
Categories, Routine F.3 
CEIL Values Ti-1 
Changing LUNO For OUTPUT 15.5 
CHAR Type 5,70 1360Fed 
Character Set gee 

ASCII Appendix G;TG-1 

Checks, Runtime 14.7.1 
CHR Function 5.235.701 
Circuit Evaluation, Short 5.9 
CKINDEX Option 9.5.1 
CKOVER Option 2 
CKPREC Option A 
CKPTR Option 9.5.4 
CKSET Option 9.5.5 
CKSUB Option 9.5.6 
CKTAG Option 9.5.7 
CLOSE Procedure 6.5 
Code, Condition 14.4.2 
CODEGEN 11.4 
Codes: 

Device Type T15=1 
Condition 11.5 
Device Type 15:3. 1.8 

Runtime Error | 

COLLECT Command 12.3.6 
COLUMN Function 6.5.2 
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Command: 
ABP 14.6.1.1 
ADD 12.3.3.2 
ALTOBJ 12.3.8.4 
Assign Breakpoint-Pascal 14.6.1.1 
BUILD PROCESS 12.3.3.1 
CAT PROCESS 12.3.3.3 
COLLECT 2.3.6 
COMPILE 12.3.4.1 
Conditiona! Flag 12.3.6.3 
DBP 14.6.1.2 
DEFAULT OBJECT 12.3.8.7 
DEFAULT SOURCE 12.3.8.6 
DELETE 12.3.7.1 
Delete and Proceed From Breakpoint- 
Pascal 14.6.1.3 
Delete Breakpoint-Pascal 14.6.1.2 
DISPLAY 12.3.7.3 
DPBP 14.6.1.3 
EDIT 12.3.9.1 
Example, Process Configuration 12.3.3.4 
Examples, Flag 12.3.6.4 
EXIT 12.3.4.3 
Flag 12.3.6.2 
INSERT 12.3.9.2 
LBP 14.6.1.5 
LIBRARY 12.3.8.2 
LIST 12.3.5; 1 
List Breakpoints-Pascal 14.6.1.5 
List Pascal Stack 14.6.1.7 
LISTDOC 12.3.5.2 
LISTORDER 12.3.5.3 
LPS 14.6.1.7 
MASTER 12.3.8.1 
MOVE 12.3.7.2 
OBJLIB 12.3.8.3 
PBP 14.6.1.4 
Proceed From Breakpoint-Pascal 14.6.1.4 
REPLACE 12.3.9.3 
SETFLAG 12.3.6.1 
SETLIB 12.3.8.5 
Show Pascal Stack 14.6.1.6 
SPLIT OBJECT 12.3.4.2 
Split Program 12.4.1 
SPS 14.6.1.6 
USE 12.3.7.5 
USE OBJECT 12.3.7.4 
USE PROCESS 12.3.3.5 
XCODE SCI 1.5 
XCONFIG SCI 12.3.11 
XCONFIG! SCI 12.3.11 
XHT 14.3.4 
XNESTER SCI 10.3.5 
XPT SCI 12.4.4514.3.2 
XRASS SCI 13.3 


XSILT SCI 
XSPLIT SCI 
XT 

XTIP SCI 
XTS 


Commands: 
Debug 

Comment: 
Option 

Comments 


Common: 
Blocks: 
Global 
Local 
Declaration 
Comparison Type Conversions 


Comparisons: 
FORTRAN 
PL/I 
Compatibility, Type 


Lompilation, Separate 
Examples 
Flowchart 
Guidelines 
Requirements 


COMPILE Command 
Compiler: 

Error Messages 

Errors 

Execution 

Files 

Option 

Options 

Phases 

SYSMSG Display 


Components, Structured Type 
Compound Statement 
Concepts, Data Type 
Condition Code 

Conditional Flag Command 
Conditional Statements 


CONFIG 
Description 
Execution 
TAXO Batch 
Files 
Libraries 


15.6 
15.6 
8.2.538.9 
12.2 


12.1;12.3.4 
12.3.4.4 
F12-1 
12.3.4.1 
12.2 
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12.3 

12.3.1 
12,371 
F12-10 


12.3.10;T12-2 


12.3.0 
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Configuration Processor 12. 
Description 12.3 
Files 12.3.10;T12- 
Libraries 12.3. 


Considerations, Task Execution 14.4 
CONST Declaration 8.2.2 
Constant: 
DECIMAL 5.12 
Expressions 5,9 
Integer 5.2 
FIXED S51 
Hexadecimal! 3 
INTEGER 3. 
Manifest 5.7.335-8. 136. 1.256.458. 
REAL 3 
Constants, String 3 
Conventions, Debug Command 14. 


Conversion: 
DECIMAL Type Precision 1.2.2.231.7- 
DECIMAL-FIXED Type 1.6 
DECIMAL-INTEGER Type 1.3 
DECIMAL-LONGINT Type 1.4 
DECIMAL-REAL Type 1.5 
FIXED Type Precision 1.2.2.251-6. 
FIXED-DECIMAL Type 1.7 
FIXED-INTEGER Type 1.3 
FIXED-LONGINT Type 1.4 
FIXED-REAL Type 1.5 
INTEGER-DECIMAL Type 1.7 
INTEGER-FIXED Type | 
INTEGER-LONGINT Type | 
INTEGER-REAL Type I. 
LONGINT-DECIMAL Type | 
LONGINT-FIXED Type | 
LONGINT-INTEGER Type | 
LONGINT-REAL Type | 
REAL Type Precision 1.2.2. 131.5. 
REAL-DECIMAL Type I. 
REAL-FIXED Type | 
REAL-INTEGER Type \ 
REAL-LONGINT Type | 


Conversion To: 
DECIMAL Type 1.7 
FIXED Type 1.6 
INTEGER Type 1.3 
LONGINT Type 14 
REAL Type 15 


Conversions: 
Arithmetic Operation Type le202 
Assignment Operation Type 12.1 
Comparison Type 12.2 


Implicit Type 12 
\/O Operation Type 1.2.3 
Mathematica! Function Type 2.4 
Type 1.1 
COS Function 551095. 1195.42 
CRU Routines 15.2 
Data: 
Scope 2.1 
Stack Frame F.4.3 
Type: 
Concepts 2.2 
Packed 6.7 
Types 23 
DATE: 
Procedure A.3 
Procedures iyy3 
DBP Command 14.6.1.2 
Debug: 
Commands 14.6.1 
Mode 14.6 
Debug Command: 
Conventions 14.6.1 
Error Messages E.4 
DEC Function 5.225. 1025. 1 155, 12 
DECIMAL: 
Constant 5.12 
Type 5.12;6.7.3 
Conversion To 1.7 
Functions 5.12 
Operators 5.12 
DECIMAL Type Precision 
Conversion 1.2.2.251.7.5 
w 
DECIMAL~-FIXED Type Conversion 6.4 


DECIMAL-INTEGER Type Conversion [1.3.4 
DECIMAL-LONGINT Type Conversion 14.4 
DECIMAL-REAL Type Conversion 1.5.4 


Declaration: 
ACCESS 8.2.6;8 
COMMON 8.2.538 
CONST 8.2 
EXTERNAL 2.7 
FORWARD 8.2.7.138 
LABEL Fe2sB.8 

Portion 8. 

Routine 8.2 

TYPE 8.2 

VAR 8.2 

Declarations 2 
FORTRAN Routine 8.2.7. 
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DECODE Procedure 6.5.436.5.6 
DEFAULT OBJECT Command 12.3.8.7 
DEFAULT SOURCE Command 12.3.8.6 
Deferred Processing, OUTPUT File: 
Full Compilation F12-4 
Partial Compilation F12-7 
DELAY Procedure 15.3.3.3 
Delete and Proceed From Breakpoint- 
Pascal Command 14.6.1.3 
Delete Breakpoint-Pascal 
Command 14.6.1.2 
DELETE Command 12,3676 
Description: 
CONFIG 12.3.1 
Configuration Processor 12.3.1 
Device 1/0, TAXO CoS 
Device Type Codes T15-1 
Device Type Codes, TAXO 15.3.1.5 
DEVSTYPE Function 15.3.1.5 
Diagram, Syntax 3.1;Appendix D 
Block F§~1 
Example gel 
Expression F5-1 
Routine F8-2 
Statement F8-3 
Symbols F3-1 
Display: 
Array F.4.2 
Command 12,3.7.3 
Compiler SYSMSG F11-2 
PROBER Option F9-2 
PROBES Option F9-2 
DISPOSE Procedure 6.6.138.7 
DIV Operator 4,235.2 
Documentation Section 1213.23 12.328 
Documents, Related Preface 
DPBP Command 14.6.1.3 
DRCT Flag 9.3.3 
DSPLYS$ Procedure 15.7 
Dummy Main Routine 15.4 
Dump: 
Abnormal! Termination F14-2 
Analysis: 
Abnormal Termination 14.7.4 
Unformatted Abnormal 
Termination 14.7.5 
Unformatted Abnorma! Termination F14—4 
Dynamic: 
Array Parameters 8.5.2 
Arrays 6.1.2 
Set Parameters 8.5.2 
Sets 6.4 
Variable 6.6.1 


EDIT Command 
Editing, Text 
Effects, Side 
Elements, Syntax 
Empty Statement 


ENCODE Procedure 
ENDPROG Option 
Entire Variable 
Enumeration: 
Type Functions 
Types 


EOF Function 
EOLN Function 


Error: 
Analysis 
Codes, Runtime 
Listing Example 
Messages 
Compiler 
Debug Command 
NESTER 
Runtime 
Termination 


Errors: 
Compiler 
Ae) 
Memory Space 
NESTER 
Runtime 


Escape: 
Label 
Statement 
Evaluation, Short Circuit 


Example: 
Error Listing 
Input 
Linking Map 
LISTDOC 
NESTER 

Statement 

PROBER Option 
PROBES Option 


14.7.4 
E.3 
F11-3 
Appendix E 
1 
E. 
10.3.6 
E.2 
14.7.3 


F11-3 
12.4.2;F 12-11 
F14-3 

Fi2-9 
10.3.73F 10-2 
F10~1 

F9-3 

F9-3 


Process Configuration Command 12.3.3.4 


Program 
GENERATE 
QUAD 
RANDOM 
ROOTS 

Programs 

RASS 


2.5;F2-1 
FB-4 

FB-2 

FB-3 

FB-1 
Appendix B 
13.43F 13-1 


Reverse Assembler 13.43F 13-1 


Semaphore Fi5={1 
Source Listing FS-—1;F9-3:F 11-1;F 12-8 
Syntax Diagram 3.1 
Examples: 
BNF a 
Flag Command 12.3.6.4 
Separate Compilation 12.3.4.4 
Source Listing 12.3.5.4 
Execution: 
Batch SPLITPGM 12.4.4 
Compiler 11.5 
CONFIG ewe Tt 
Considerations, Task 14.4 
TAXO: 
Batch CONFIG F12-10 
Batch Pascal 14.5 
TAXO LUNO 14.3.4 
TAXO With SC! 14.3.2 
Minima! Runtime 14.3.12 
NESTER 10.3.5 
RASS 13.3 
Reverse Assembler 13.3 
SPLIT 12.5 
Split Object Utility 12.5 
Split Program 12.4.4 
SPLITPGM 12.4.4 
Pascal Program 14.1;14.3 
EXIT Command 12.3.4.3 
EXP Function 5, 1085..1135..12 
Expression Syntax Diagrams F5-1 
Expressions 4.235.9 
Constant 5.9 
Integer Constant 5.9 
Mixed Mode 5.9 
EXTEND Procedure 6.536.5.53; 14.3. 1 
Extensions, Pascal! 1.2 
Extent 8.7 
EXTERNAL Declaration 8.2.7.2 
Field, Tag 6.2.2 
Fields: 
File Descriptor 14.7.3 
Process Record 14.7.3 
Stack Frame 14.7.3 
File: 
INPUT 6.5 
OUTPUT 6.5 
SHRPROC 14.3.15 


Type 6.536.7.3 


Index-6 


File Descriptor Fields 14.7.3 
Files: 
Compiler T11-1 
CONFIG 12.3.10;T12-2 
Configuration Processor 12.3.10;T12-2 
TAXO: 
Random C.253 
Sequentia! C.2.4 
Pascal C.2 
RANDOM 6.536.5.5 
RASS 13.2 
Reverse Assembler 13.2 
Sequential! 6.536.5. 
Split Program 12.4.3 
SPLITPGM 12.4.3 
FINDSSYN Procedure 15.36 


FIX Function 56295. 103521 135512 
FIXED: 
Constant 5.1 
Type 5.1136.763 
Conversion To 1.6 
Functions 5.11 
Operators Sei 
FIXED Type Precision 
Conversion e2e2e20l.6.5 
FIXED-DECIMAL Type Conversion 1.7.4 
FIXED-INTEGER Type Conversion 1.3.3 
FIXED-LONGINT Type Conversion 1.4.3 
FIXED-REAL Type Conversion 1.5.3 
Flag: 
Command 12.3.6.2 
- Examples 12.3.6.4 
DRCT 


53 
12.3.6;11%1 
5.235. 1035.1135.12 


Flags, Process Configuration 
FLOAT Function 


Floating Point Instructions TE-1 
Flowchart, Separate Compilation Fi12-1 
FOR Statement 5.835.8.238.2 
FORINDEX Option 9.6.2 
Form: 

Backus-Naur 3.1 

Backus~Normal 3.1 
Format: 


Program 8.1 

Source Module is Wy 
Formatted I/O 3 
FORTRAN Comparisons 1.3 
FORTRAN Routine Declarations 2 
FORWARD Declaration 7 
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Frame: 
Analysis, Stack 
Stack 

Full Compilation: 
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Deferred Processing, OUTPUT File F12-4 


initial Run, OUTPUT File 


Source Listing 


Function: 
ABS 
ARCTAN 
Array Type 
Call 


DEC 


LOCATION 
LROUND 
LTRUNC 
ODD 

ORD 
Parameters 
PRED 


SQRT 


Functions: 
DECIMAL Type 
Enumeration Type 
FIXED Type 
Identification 
INTEGER Type 
LONGINT Type 
REAL Type 
Standard 
User Defined 
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15.2.5 


5.12 
2.2.1.1 
5.11 
15.3.2 
5.2 

5.2 
5.10 
A.2 

8.8 


GENERATE Example Program FB-4 
GETMSG Procedure 1.3.5.2 
Global Common Blocks 15.6 
GLOBALS Options 9.6.3 
GOTO Statement 7.2 
Guidelines: 
Separate Compilation 12.3.4.1 
Source Code 10.2 
HALT Procedure A.3 
Heap Manager Option 14.3.11 
Hexadecimal: 
Constant yd 
1/0 6.5.3 
IDATE Procedure 15.3.3.2 
Identification Functions 15.3.2 
Identifiers 3.2.1 
IF Statement 5.6.1 
Implicit Type Conversion 4 
IN Operator 4,236.4 
Information, TAXO Cot 
Initial Run, OUTPUT File: 
Full Compiiation F12-2 
Partial Compilation F12-5 
Input: 
Example 12.4.2;F 12-11 
File 6.5 
INSERT Command 12.369.2 
Installation, Program H.5 
Instructions, Floating Point TE-1 
INTEGER: 
Constant 3.2 
Expressions 5.9 
Type §.236.7.3 
Conversion To 1.3 
Functions 5.2 
Operators §.2 
INTEGEGER-DECIMAL Type Conversion I.7. 1 
INTEGER-FIXED Type Conversion 1.6.1 
INTEGER-LONGINT Type Conversion _|-4. 
INTEGER-REAL Type Conversion 5. 
Integers 3.26 
Interactive Mode, NESTER 10.3 
Internal Representation of Types 6.7. 
Introduction 1. 
I/O: 
TAXO Device C3 
Errors 14.7.2 
Formatted 6.5.3 
Hexadecimal! 6.5.3 


Routines 15.3: 1 
Stand Alone 15.7 
\/O Operation Type Conversion 1.2.3 
IOTERM Procedure 6.5 
ITIME Procedure 15.3.3.1 
LABEL: 
Declaration 7.238.2.1 
Escape 7.138.2 
LBP Command 14.6.1.5 
Level, Static Nesting F.2 
Libraries: 
CONFIG 12.3.8 
Configuration Processor 12.3.8 
Runtime 14.2;T14-1 
LIBRARY: 
Command 12.3.8.2 
Split Program 12.4.3 
SPLITPGM 12.4.3 
Line Width, Source Listing 9.3.2 
Linking: 
TAXO LUNO 14.3.3 
TAXO With SCI 14.3.1 
Minima! Runtime 14.3.11 
Overlay H.4 
Shared Procedure 14.3.15 
Pascal 14.1314.3 
Linking Map Example Fi4-3 
LINT Function 5.2 
LIST: 
Command 12.3.5.1 
Option 953.1 
List Breakpoints-Pascal Command 14.6.1.5 
List Pascal Stack Command 14.6.1.7 
LISTDOC: 
Command 12.3.5.2 
Example FiZ-9 
Listing Example, Error F41-3 
LISTORDER Command 12.3.5.3 
LN Function 5.105521 135,12 
Local Common Blocks 15.6 
LOCATION Function 5.236.6 
Logica! Operators 4.2 
LOGMSG Option 14.35.14 
LONGINT Type 5.236.723 
Conversion To 14 
Functions 5.2 
Operators 5.2 
LONGINT-DECIMAL Type Conversion 1.7.2 
LONGINT-FIXED Type Conversion 1.6.2 
LONGINT-INTEGER Type Conversion 1.3.1 
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LONGINT-REAL Type Conversion 1.5.2 
LPS Command 14.6.1.7 
LROUND Function A.2 
LTRUNC Function A.2 
LUNO For OUTPUT, Changing 15.5 
LUNO I/O: 
Option 14.2.2 
Program Considerations 15.5 
Termination Routines F.7.2 
LUS$MSG Module 15.5 
Main Routine, Dummy 15.4 
Manifest Constant 5.7.375.8.1 
6.1.236.438.5.2 
Manual! Organization 1.5 
MAP Option 9.3.3;F9-1 
MASTER Command 12.51 


Mathematical Function Type 


Conversions 1.2.4 
Medium Category Routines R.3 
Memory Space Errors 14.7.2 
Message Handling Procedures 15.3.5 
MESSAGE Procedure A.3 
Messages: 

Compiler Error E.1 

Debug Command Error E.4 

Error Appendix E 

NESTER Error 10.3.6 

Runtime Error E.2 
Minimal Runtime: 

Execution 14.3.12 

Linking 14.3.11 

Option 14.2.7 

Program Considerations ws 
Mixed Mode Expressions 5.9 
MCD Operator 4.2°5.2 
Mode: 

Debug 14.6 

NESTER Interactive 10.3.3 
Modification, Process Configuration 12.3.7 
Modifications, Pascal! le2 
Module: 

Format, Source 12.42 

LUSMSG 18.5 

Routine F-5 

Standard Category Routine FF=2 
MOVE Command 12.3072 
Multidimension Arrays 6.1. 
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Program Considerations 15.6 
Multiplying Operators 4.2 
Multitask TAXO Option 14.2.3 
NESTER 10.3 

Error Messages 10.3.4 

Errors T10-2 

Example 10.3.7;F 10-2 

Execution 10.3.3 

Option Comment 10.3.2 

Options T10-1 

Rules 10.3.1 

Statement Example F10-1 
Nesting Level, Static F.2 
NEW Procedure 6.6.158.7 
Nonsharable Runtime Library 

Routines T14-2 
NOT Operator 4,.2;5.3 
Notation, Syntax 301 
NULLBODY Option 9.4.2 
Numbers 3.2.2 

Overlay H.7 

Real Sdee 
OBJECT Option 9.4.1 
OBJLIB Command 12.3.8.3 
ODD Function 5.2 
Operator: 

AND 4.2;5.3 

DIV 4.235.2 

IN 4,236.4 

MOD 4.2;5.2 

NOT 4.2;5.3 

OR 4.2;5.3 
Operators 4.2 

Adding 4.2 

BOOLEAN Type 5.3 

DECIMAL Type 5.12 

FIXED Type 5.11 

INTEGER Type 5.2 

Logical 4.2 

LONGINT Type 5.2 

Multiplying 4.2 

Pointer Type 6.6 

REAL Type 5.10 

Relational 202. 1. 1342235. 1135. 1236.7.1 

SET Type 6.4 

String 6.7.1 


Option: 
ASSERTS 
CKINDEX 
CKOVER 
CKPREC 
CKPTR 
CKSET 
CKSUB 
CKTAG 
Comment 

NESTER 
Compiler 
Display: 

PROBER 

PROBES 
TAXO Execution 
ENDPROG 
Example: 

PROBER 

PROBES 
FORINDEX 
GLOBALS 
Heap Manager 
LIST 
LUNO 1/0 
MAP 
Minima! Runtime 
Multitask TAXO 
NULLBODY 
OBJECT 
PAGE 
PROBER 
PROBES 
ROUND 
Shared Procedure 
TRACEBACK 
UNSAFEOPT 
WARNINGS 
WIDELIST 
72COL 


Options: 
Compiler 
NESTER 
Program Level 
Routine Level 
Runtime 
Statement Level 


OR Operator 
ORD Function 


Organization, Manual 
OUTPUT, Changing LUNO For 1 


OUTPUT File 
Full Compilation: 


Deferred Processing 


Initial Run 
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Precision, Conversion: 


Deferred Processing F12-7 DECIMAL Type 1.2.2.231.7.5 
initial Run F12-5 FIXED Type 1-2.2.251.6.5 
Overflow, Symbol! Table 14.4.1 REAL Type 162.2. 1515.5 
Overlay: 
Linking H.4 PRED Function 2.2.1.135.761 
Numbers H.7 Preparation, Source Code 15.4 
Structure, Pascal H.2 PRGMSG Procedure 15.3.5.3 
Overlays, Pascal H. 1 PROBER Option 9.5.8314.3.1 
OVLY$ Procedure H.3 Display F9-2 
Example F9-3 
PACK Procedure 6.1.1 PROBES Option 95.9 14.351 
Packed: Display F9-2 
Array 6.7.1 Example F9-3 
Data Type 6.7 
Records 6.7.2 Procedure: 
ACTIVATE 15.3.4.3 
PAGE: BID 15.3. bet 
Option 9.3.4 Call ww 
Procedure 6.5.236.5.5 CLOSE 6.5 
Parameter Rules 8.5.1 DATE A.3 
DECODE 6.5.436.5.6 
Parameters 8.5 DELAY 1533.3:53 
Dynamic: DISPOSE 6.6. 138.7 
Array 8.5.2 DSPLYS$ 5.7 
Set 8.5.2 ENCODE 6.5.436.5.6 
Function 8.5.3 EXTEND 6.536.5.53; 14.3.1 
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1 INTRODUCTION 


PASCAL release 1.6.0 is for installation on a TAXO operating system release V130 and subse- 
quent releases. Pascal supports compiling user programs for execution on TAXO. 


If Pascal is installed under TAXO release older than V130, two problems will be encountered: 


1. When using the Print File utility to print Pascal compiler listings, there will be extraneous 
page ejects unless the user specifies NUMBER OF LINES/PAGE = 255. 


2. The OPTIONS parameter of the XTIP proc will not always work correctly for option names 
which are abbreviated. 


This document is composed of the following sections: 

1. Introduction. 

2. Identifies the known problems in this release. 

3. Describes a set of Pascal routines for accessing TAXO key index files. 

4. Describes a set of Pascal procedures for |/O with video display terminals. 

5. Describes a couple of additional TAXO interface routines in the run-time library. 


6. Describes how Pascal procedures can be called from FORTRAN programs. 
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PROBLEM REPORT 


Following is a list of problems which are known as of Jan. 15, 1980. 


2.1 Compiler Problems 


1; 


2 


3 


4 


e 


de 


Use of the UB or SIZE function with an argument which is a subscripted array or a pointer 
reference may cause CODEGEN to give the warning "TEMP FROZEN". Correct code is 
still generated, though. (STR 4195 and 4472) 


A call to a BOOLEAN function used as an array index (for example, A[ F(N) ] where F 
is a BOOLEAN function) causes CODEGEN to abort. (STR 4527) 


The SQR function applied to a FIXED argument does not always work correctly. (STR 
5152 and 5153) 


If the result of the $TB function is assigned to a BOOLEAN variable and the CKSUB option 
is on, CODEGEN aborts. (STR 5200) 


. Use of the CKSUB or CKPREC options with FIXED arithmetic may result in a "TEMP FROZEN" 


warning message from CODEGEN. The code generated will still work correctly, except 
that one of the checks may not be performed. (STR 5209 and 5214) 


CODEGEN may give the error message "OUT OF REGS" on an INTEGER multiply when the 
CKOVER option is on. This can be avoided by turning off overflow checking for that state- 
ment, or by simplifying the statement so that it doesn't need as many registers. 


Incorrect code is generated for a DECIMAL expression which uses multiplication and appears 
as a parameter of a routine call. This can be avoided by assigning the expression value 
to a variable, and then using the variable as the routine parameter. (STR 5469) 


Incorrect results may be obtained for DECIMAL addition or subtraction if one of the operands 
has a precision different from that of the destination variable. For example, with the decla- 
rations 


VAR A: DECIMAL(12,6); B: DECIMAL (8,3); 
the statement 
B:=A+¢ B; 


will not get the correct answer when the value of A is 100 or greater. The high-order digits 
of A are truncated, using only the number of digits corresponding to the size of the variable 
which is the destination of the assignment. This occurs because the scale factor conversion 
is incorrectly done by first truncating to the required number of digits, and then shifting 
right to align the decimal points. (Also, this loss of significance is not detected by the CKPREC 
option.) Scale factor conversion is correctly done by the DEC function, so it can be used 
to get around this problem: 


B: = DEC(8,3,A) + B; 


will produce the correct answer. (STR 5475) 
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The optimization phase may perform common subexpression elimination incorrectly in 
certain unusual situations which involve a memory location accessed by overlapping 
variant fields of different lengths, or an array element accessed by different index ex- 
pressions. For example, the code sequence 


Az= X13] +1; 
X[ J] s= 0; 
Bs= X13] + 1; 


will assign the same value to A and B, which is not correct if J happens to equal 3. Simi- 
larly, the sequence 


will assign the same value to A and B providing only that fields X and Y do not begin 
at the same offset in the record. This is wrong if field X overlays the end of a longer field 
Y. (STR 5520) 


The luno parameter of the pre-defined procedure SETLUNO and the file count parameter 
of SKIPFILES do not accept a variable whose type is a subrange of positive integers. 
(STR 5523) 


When the procs XSILT and XCODE are used in a batch stream, the optimizer phase is 

not executed if any of the routines being compiled has a fatal error. This can be corrected 
by using the text editor to change file .SS$PROC.XSILT line 45 from ".IF @$CC,LT,O8000" 
to ".IF @$$CC,LT,OAO00". 


CODEGEN aborts with the message "CANNOT GET MEMORY" if it is run with a memory 
parameter of "10,10". The largest that can be used is "10,9". However, since release 
1.6 uses less heap space than 1.5, it is still possible to compile routines just as large as 
before. Any batch stream which has the MEM3 parameter of the XTIP or XCODE procs 
set to "10,10" will have to be changed to "10,9". 


Runtime Problems 


The run-time routines associated with the PROBES option may get stack overflow if the 
are a large number of probe points. (STR 4103) 


A TEXT file READ into a REAL variable does not signal an error if the first character in 


the field is non-numeric. A value of 0.0 is returned and the column pointer is not advanced. 


(STR 5315) 


The CKOVER option does not detect overflow on a DECIMAL multiply. (STR 5481) 
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2.3 PASCAL Utilities Problems 


1. The Configuration Processor LISTORDER command does not affect the sequence of a LISTDOC 
listing. (STR 3045) 


2. The Configuration Processor and Split Program utilities do not work properly if the keywords 
BEGIN and END delimiting a routine block are in lower case letters. (STR 3392) 


3. The NESTER issues an error message on a function call with an empty parameter list, but 
the program is nested correctly anyway. (STR 3656) 


4. The Configuration Processor LISTDOC command does not recognize the symbols" " and 
" "as enclosing the documentation section; It requires that "(*" and "*)" be used, (STR 


4373, 4447, and 4602) 


5. The NESTER does not give any error message if it is unable to open either its input or output 
file. (STR 5207) 


6. The NESTER does not set synonym $$CC to a non-zero value when it detects errors. 
(STR 5180) 


7. The NESTER incorrectly issues error codes 5 and 14 on a COMMON declaration of the 
form 


COMMON A,B,C: 7; 


but the nested output is ok and will compile ok. (STR 5502) 


2.4 PASCAL Documentation Problems 


2.4.1 PASCAL User's Manual 


2.4.1.1 Eixed-point Arithmetic 


The description of the FIXED data type given in paragraph 5.11 does not tell the whole story 
about how to use FIXED values in arithmetic expressions. The user must understand what 
precision and scale factor is being used in intermediate computations and must ensure that 
significance is not lost. FIXED variables and constants are either single-word If the precision 

is 15 bits or less, or double-word if the precision is 16 bits or more. For each arithmetic ope- 
rator, if both operands are single-word values, then a single-word result will be produced. 

If elther operand is a double-word value, then a double-word result will be produced. Appendix 
section |.2.2.2 of the User's Manual is required reading; it tells what the scale factor will be 

for each intermediate result in a computation. Note that because of scaling problems, an 
arithmetic expression which is accepted by the compiler as legal may yield a totaly incorrect 
numeric result. For example, if X and Y are variables of type FIXED(15,14), then the expression 
X DIV Y produces a quotient of type FIXED(15,0); thus if the value 0.5 was expected as the 
answer, it would be zero instead. The precision and scale factors of FIXED constants of the 
form <digits>.<digits>F is determined according to the rules of DECIMAL to FIXED conversion 
shown in table I-1. For example, the constant 3.25F has precision 11,7 and 3.250F has pre- 
cision 14,10. Thus it is possible for the number of leading or trailing zeros in a constant to 
affect the scaling of a computation, The function FIX is used not only for type conversions, 

but also affects the scaling done for a single-operator expression which is the last argument. 
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For example, the statement 
A 3:= FIX (15, 4, B*C); 


says to compute the value B*C in such a way that the result will have the precision 15,4 | 
instead of following the rules in Appendix |. Thus, this may yield a different answer than the 
statement ; 


A c= B*¥ Cs 


FIX may also be useful for shifting a value (changing its scale factor) before an operation 
to alter the scale factor of the result. The use of the CKPREC option can be very helpful 
in detecting loss of significance when values are shifted left, but does not check for cases 
where all significance may be lost in a right shift. 


2.4.1.2 Interactive 1/O - Prompting for Input 


For certain applications, it is desireable for an executing program to interactively receive 
input from and to display output to the user. Performing |/O on an interactive basis is not 
directly provided for in the Pascal language, but various Pascal implementations have diffe, 
ways to get around the limitations. The following paragraphs describe a technique for doinc 
interactive I/O with Tl Pascal using a VDT in record mode. 


Since Pascal supports direct TEXT I/O devices, interactive I/O is possible. However, input 
and output cannot be performed alternately on the same TEXT file since a TEXT file which 

is opened has read-only access or exclusive-write access. Thus, to prompt a user for input 
by writing to a terminal and to receive input as a response by reading from the same terminal, 
it is necessary to define two separate files, one for writing prompting messages, the other 

for reading user responses. 


When a TEXT file is opened using RESET, the first logical! record is read into an internal |/O 
buffer area (unless the file is empty). Subsequent READ operations take their values from 
this internal buffer. Similarly, READLN causes the internal buffer to be flushed by reading 

the next logical record from the file into the buffer. Therefore, any prompting message must 
be written (using WRITELN) before input is expected, i.e., before RESET or READLN is called. 


Consider the following example. The program IOEXAMPLE uses a procedure, PROCESS, which 
takes a character string argument and returns another character string as its result. This ex- 
ample prompts the user with the message "ENTER DATA", after which the user is expected 

to enter a string of characters. The program then calls PROCESS to process the input data 

and create the result string, which is then displayed for the user. The user is repeatedly prompted 
for input until an end-of-file response is received. 


To execute this program, the synonyms for INPUT and OUTPUT should be set to the value 

"ME", to associate these files with the VDT from which the program is executed. Notice that 

the first prompt is written before RESET is called. After RESET has been called, the EOF test 

is meaningful, so the WHILE loop may now be entered (unless end-of-file was returned by 

RESET). The READ statement reads an 80-character string (from the internal buffer). PROCESS 

is called to process the data. The result string is then written on file OUTPUT before the user 

is prompted again for input. Again notice that it is necessary to prompt! before calling READLN 
(which causes the next line to be read into the interna! buffer). The loop continues until the 
end-of-file (ENTER key on DTS) is read. 


A useful enhancement to this example is to use the function DEV$TYPE to determine whether 
INPUT and OUTPUT are truly associated at run-time with an "interactive" device such as 

a VDT or teleprinter. For instance, if INPUT is determined to be a disc file, there is no need 

to prompt for input regardless of the device type of OUPUT. 
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PROGRAM IOEXAMPLE; $$ MAP} 


PURF’OSE: This program illustrates how one might prompt a user for interactive input. 


PROCEDURES CALLED: PROCESS 
EXCEPTIONS: It is assumed that files INPUT and OUTPUT are associated (at run-time) 


with a VDT or teleprinter. 


TYPE LINE = PACKED ARRAY [ 1...80] OF CHAR; 

VAR INBUF, OUTBUF: LINE; 

PROCEDURE PROCESS ( DATA: LINE; VAR RESULT: LINE ); EXTERNAL; 
BEGIN } IOEXAMPLE } 


WRITELNCENTER DATA"); } Prompt user} 
RESET(INPUT); } Read user response { 
WHILE NOT EOF(INPUT) DO BEGIN ‘Test for EOF 
READ ( INBUF ); } Transfer user response { 
PROCESS ( INBUF, OUTBUF ); } Process user response 
WRITELN ( OUTBUF ); } Show result of processing { 
WRITELN ("ENTER DATA"); {Prompt user{ 
READLN; }Read user response { 
END; 


END. }1OEXAMPLE} 


2.4.1.3 Linking Minimal Run-time With Procedure Segment 


When following the instructions for linking a program with a procedure segment using the 
minimal run-time, as given in paragraphs 14.3.11 and 14.3.15, and including a user-written 
module specifying the stack and heap size, a link-edit error may result, with the symbols 
HP$BOT and HP$TOP being doubly—defined. This problem may be corrected either by including 
the stack and heap module in the procedure segment instead of in the task segment (since 

it is a DSEG, the link editor will actually allocate the space in the task segment anyway), 

or by removing the SEARCH command from the procedure segment and putting in explicit 
INCLUDE commands for each of the routines needed. (STR 4798) 


2.4.1.4 Linking With Shared Procedure Segment 


In the two link-edit control files in paragraph 14.3.15, the first include in the task segment 
should be INCLUDE(P$MAIN) or INCLUDE(P$MAINTX) instead of using MAIN or MAINTX. 


The last part of paragraph 14.3.15 describes sharing a procedure segment between tasks 
using different libraries. It should be emphasized that this can only be done when one task 
uses .TIP,LLUNOBJ and the other uses only .TIP.OBU. If a procedure segment is linked with 
the minimal run-time, then all tasks using it must also be linked with the minimal run-time. 
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3 KEY INDEX FILE HANDLER 


3-1 Introduction. 


On the Pascal object disk is a directory, DXPASCAL.TIP.MISC.TIPKIF, which contains the 
source and object for a set of procedures for accessing TAXO's key indexed files. If the user 
is not satisfied with the features of the supplied procedures, he is invited to change them 

to meet his needs. 


3.2 Package Description 


The directory TIPKIF contains two directories and a file. The file is DXPASCAL.TIP.MISC.TIPKIF. 
BATCH and it is a batch stream to compile all the key file routines. 


The two directories are DXPASCAL.TIP.MISC.TIPKIF.SRC and DXPASCAL.TIP.MISC. TIPKIF.OBJ. 
Under the directory SRC is the source for all the key file routines. The file PROCES under 

the directory SRC is the process record for the configuration processor used to compile the 

key file routines. The file KIFTST under the directory SRC is a test program which uses the 

key file routines. The file KIFTST explains how to run the test program. The directory OBJ 

is the object for all the key file routines and the test program KIFTST. This object directory 
should appear as a LIBRARY command to the link editor for all links using the key file routines. 


The following documentation describes how to use the key file routines from a Pascal program. 


3.3 Functional Specification 


KEYSFILE has a single entry point for all calls. Since it is a restriction in PASCAL to have 
the same number of parameters in each call, all calls must specify the following four parame- 
ters: 


© KIF_ COMMAND -- SPECIFIES WHAT OPERATION IS TO BE DONE 

e KIF_KEY_NAME -- VALUE OF KEY TO BE PROCESSED 

° KIF_BUFFER_NAME -- NAME OF BUFFER WHICH WILL PROVIDE/RECEIVE DATA 
. KIF_STATUS_BLOCK -- USER CONTROL BLOCK 


3.4 Procedure Interface 


The example below shows the required type and procedure formats used to call KEYSFILE. 
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TYPE 
T_KIF_STATUS_BLOCK = PACKED RECORD 
KIF_STATUS_CODE: 0..255; } RETURN CODE} 
KIF_KEY_NUMBER : 0.255; | KEY # TO BE ACCESSED} 
KIF_ACCESS :0..255;  } FILE ACCESS FLAGS { 
KIF_RESERVED :0..255; | RESERVED--DO NOT MODIFY } 
KIF_RECORD_LEN : INTEGER; } RECORD SIZE--IF 0, = LRECL { 
KIF_PATHNAME —: PACKED ARRAY (.1..30.) OF CHAR; $ FILE NAME { 
END; —_} T_KIF_STATUS_BLOCK } 


PROCEDURE KEYSFILE 
( _KIF_COMMAND : INTEGER; 
VAR KIF_KEYNAME : PACKED ARRAY (.1..?.) OF CHAR; 
VAR KIF_BUFFER_NAME : PACKED ARRAY (.1..?.) OF CHAR; 
VAR KIF_STATUS_BLOCK : T_KIF_STATUS_BLOCK); EXTERNAL; 


3.5 Command Codes 


All valid commands to KEYSFILE are indicated below. Any code other than those specified 
will cause a status code F2 hex (command invalid) to be returned. SVC operation codes and 
STATUS CODES are hexadecimal numbers in the table below. 


COMMAND CODE OPERATION SVC ISSUED 


KIF _INIT = 01 INITIALIZE KEYED INDEX -- 
FILE HANDLER FUNCTION. 
STATUS CODES: NONE 


KIF_TERM = 02 TERMINATE KEYED INDEX -- 
FILE HANDLER. 
STATUS CODES: NONE 


KIF_OPEN = 03 OPENS SPECIFIED FILE. 40 
STATUS CODES: F1,F3 


KIF_ CLOSE = 04 CLOSES SPECIFIED FILE. 01 
STATUS CODES: FO,F3 


KIF_READ_FILE_CHAR =05 RETURNS FILE CHARACTE- 05 
RISTICS IN KIF_BUFFER_NAME, 
STATUS CODES: FO 


KIF_SET_ACCESS = 06 SETS FILE ACCESS TO STATE 11 
SPECIFIED IN STATUS BLOCK. 
STATUS CODES: 3B 
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KIF_LREAD_GREATER = 07 


KIF_READ_GREATER_LOCKED = 08 


KIF_READ_BY_KEY = 09 
KIF_READ_BY_KEY_LOCKED = 10 
KIF_READ_CURRENT = 11 
KIF_READ_CURRENT_LOCKED = 12 
KIF_READ_GR_OR_EQ = 15 


KIF_READ_GR_OR_EQ_LOCKED= 16 


KIF_READ_NEXT = 17 
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THE KIF RECORD WHICH HAS 
THE NEXT VALUE GREATER THAN 
THAT OF THE KEY SPECIFIED IS 
READ INTO KIF_BUFFER_NAME. 
STATUS CODES: 05,B4,88,BF,D7,FO 


SAME AS KIF_READ_GREATER 
EXCEPT RECORD IS LOCKED 
AFTER A SUCCESSFUL READ. 
STATUS CODES:05,B4,B7,B8, 
BF,D7,FO 


THE KIF RECORD SPECIFIED 

BY KIF_KEY_NAME IS READ INTO 

KIF_BUFFER_NAME. 

STATUS CODES:05,B4,B5,BF, 
D7,FO 


SAME AS KIF_READ_BY_KEY 
EXCEPT RECORD !S LOCKED 
AFTER A SUCCESSFUL READ. 
STATUS CODES:05,B4,B5,B7, 
BF,D7,FO 


SAME AS KIF_READ_BY_KEY 
EXCEPT THAT POINTER SET 

BY SET CURRENCY COMMANDS 
IS USED INSTEAD OF KIF_KEY_ 
NAME 

STATUS CODES:05,B4,B5,D7,F0 


SAME AS KIF_READ_CURRENT 
EXCEPT RECORD IS LOCKED 
AFTER SUCCESSFUL READ. 
STATUS CODES:05,B5,87,D7,F0 


SAME AS KIF_READ_GREATER 
EXCEPT THAT RECORD SELECTED 
WILL BE EQUAL TO OR GREATER 
THAN KIF_KEY_NAME. 

STATUS CODES:05,B4,B8,BF,D7,FO 


SAME AS KIF_READ_GR_OR_EQ 

EXCEPT RECORD IS LOCKED 

AFTER A SUCCESSFUL READ. 

STATUS CODES:05,B4,B7,B8,BF, 
D7,FO 


READS THE NEXT SEQUENTIAL 

RECORD AS INDICATED BY THE 

CURRENCY POINTERS. 

STATUS CODES:05,83,B7,BD, 
D7,FO 


44 


44 


42 


42 


42 


42 


44 


44 


45 
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KIF_READ_NEXT_LOCKED 18 SAME AS KIF_READ_NEXT 45 
EXCEPT RECORD IS LOCKED 
AFTER A SUCCESSFUL READ. 
STATUS CODES: 05,B3,B7,BD, 


D7,FO 


KIF_INSERT_RECORD 19 RECORD SPECIFIED BY KEY- 4é 
NAME WILL BE WRITTEN INTO 
FILE USING THE CONTENTS OF 
KIF_BUFFER_NAME. 
STATUS CODES: 05,B1,82,B4, 
D7,E0,FO 
KIF_REWRITE_RECORD 20. REPLACES THE RECORD 47 
PREVIOUSLY READ AND LOCKED 
WITH THE CONTENTS OF KIF_ 
BUFFER_NAME. 
STATUS CODES; 05,B2,B5,B9,BA 
BE,EO,FO 


KIF_REWRITE_REC_UNLOCK = 21 SAME AS KIF_LREWRITE_ RECORD 47 
EXCEPT THAT THE RECORD IS 
UNLOCKED AT THE COMPLETION 
OF THE COMMAND, 
STATUS CODES:05,B2,85,B9,BA, 
BE,D7,E0,FO 


EXCEPT THAT RECORD ACCESSED HAS 

A KEY-VALUE JUST BEFORE THE 

ONE SPECIFIED BY THE CURRENCY 

POINTERS, 
STATUS CODES:05,B3,BD,D7,FO 


KIF_READ_PREVIOUS = 22 | SAME AS KIF_READ_GREATER 48 


KIF_READ_PREVIOUS LOCKED =23 SAME AS KIF_READ_PREVIOUS 48 
EXCEPT RECORD IS LOCKED 
AFTER A SUCCESSFUL READ. 
STATUS CODES: 05,83,B7,BD,D7,FO 


KIF_DELETE_BY_KEY = 24 DELETES RECORD SPECIFIED BY 49 
KIF_KEY_NAME. 
STATUS CODES:05,B4,B5,87,F0 | 
KIF_DELETE_CURRENT_REC =25 | DELETES RECORD SPECIFIED 49 

BY THE CURRENCY POINTERS, 

STATUS CODES:05,85,B7,FO | 


KIF_UNLOCK_RECORD = 26 | UNLOCKS RECORD SPECIFIED 4A 
BY THE CURRENCY POINTERS. 
STATUS CODES: B5,B6,B7,BA,FO 


KIF_SET_CURRENT_EQUAL =27 | SETS CURRENCY POINTERS TO 50 
THE REC, SPECIFIED BY KIF_ 
KEY _NAME 
STATUS CODES:05,B4,B8,D7,F0 
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KIF_SET_CURRENT_GR_OR_EQ = 28 SETS CURRENCY POINTERS AT 54 
OR PAST THE RECORD SPECI- 
FIED BY KIF_KEY_NAME, 
STATUS CODES: 05,B4,B8,D7,FO 


29 SETS THE CURRENCY POINTERS 52 
PAST THE RECORD SPECIFIED 
BY KIF_KEY_NAME, 
STATUS CODES: 05,B4,B8,D7,FO 


KIF_SET_CURRENT_GREATER 


Although all parameters will not be used on all calls, all parameters must be provided in each 
call. The table below indicates which parameters are actually used in each call. 


NOTE 
The KIF_LRESERVED byte in the KIF_STATUS_BLOCK is used in all calls, 


COMMAND KEY BUFFER STATUS BLOCK 
NAME NAME KEY # PATHNAME ACCESS 
KIF INIT N N N N N 
KIF_TERM N N N N N 
KIF_OPEN N N N Y N 
KIF_CLOSE N N N N N 
KIF_READ_FILE_CHAR N Y N N N 
KIF_SET_ACCESS N N N N Y 
KIF_READ_GREATER Y Y Y N N 
KIF_READ_GREATER_LOCKED Y Y Y N N 
KIF_READ_BY_KEY Y Y Y N N 
KIF_READ_BY_KEY_LOCKED Y Y Y N N 
KIF_READ_CURRENT N Y N N N 
KIF_READ_CURRENT_LOCKED N Y N N N 
KIF_READ_GR_OR_EQ ; Y Y N N 
KIF_READ_GR_OR_EQ_LOCKED Y Y Y N N 
KIF_READ_NEXT N Y N N N 


COMMAND KEY BUFFER STATUS BLOCK 
NAME NAME KEY # PATHNAME ACCESS 
KIF_READ_NEXT_LOCKED N Y N N N 
KIF_INSERT_RECORD Y Y Y N N 
KIF_REWRITE_RECORD N Y N N N 
KIF_REWRITE_REC_UNLOCK N Y N N N 
KIF_READ_PREVIOUS N Y N N N 
KIF_READ_PREVIOUS_LOCKED N Y N N N 
KIF_DELETE_BY_KEY Y N Y N N 
KIF_DELETE_CURRENT_REC N N N N N 
KIF_UNLOCK_RECORD N N N N N 
KIF_SET_CURRENT_EQUAL Y N Y N N 
KIF_SET_CURRENT_GR_OR_EQ Y N Y N N 
KIF_SET_CURRENT_GREATER Y N Y N N 
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3.6 Status Codes Returned To User 


The following codes are returned in the KIF_STATUS_CODE portion of the KIF_STATUS _BLOCK. 
The codes are grouped into non-fatal information codes and fatal error codes. The former 

set of codes are to be expected in the normal handling of keyed index files. Fatal error codes 
indicate a severe problem has occured and the program should probably be aborted. If any 

error codes occur which are not listed below, check TAXO Error Manual. 


INFORMATION CODES 


OPERATION SUCCESSFULL =0 
NO MORE RECORDS = B3 hex 
DUPLICATE FOUND = B4 hex 
RECORD NOT IN FILE = B5 hex 
RECORD LOCKED = B7 hex 
NO RECORD SATISFIES CONDITION = BB hex 
CANNOT FIND NEXT RECORD = BD hex 
FATAL ERRORS 
PARAMETER NOT IN MAP = 05 hex 
ACCESS DENIED = 3B hex 
FILE INCONSISTENT (RECONSTRUCT) = BO hex 
FILE TOO LARGE (RECONSTRUCT) = B1 hex 
VARIABLE LENGTH RECORD TOO LARGE = B2 hex 
ATTEMPT TO MOD A NON-MODIFIABLE 
KEY = B9 hex 
RECORD NOT LOCKED BY REQUESTING 
TASK = BA hex 
OUT OF LOG BLOCKS = BB hex 
ATTEMPT TO REWRITE RECORD NOT 
IN FILE = BE hex 
ILLEGAL KEY NUMBER = BF hex 
RECORD TOO SMALL TO CONTAIN 
ALL OF ITS KEYS = CO hex 
OUT OF DISC SPACE = EO hex 
FILE NOT OPEN = FO hex 
FILE NOT KIF = F1 hex 
KIF COMMAND INVALID = F2 hex 
FILE NOT FOUND = F3 hex 
BUFFER_SIZE_INVALID = F4 hex 


3.7. Access Options 


After a file has been opened the KIF_SET_ACCESS command may be executed. When this 
command is specified, the KIF_ACCESS portion of the KIF_STATUS_BLOCK will be inspected. 
The options are: 


CODE MEANING 
0 EXCLUSIVE WRITE 
1 EXCLUSIVE ALL 
2 SHARED 
3 READ ONLY 


If the operation cannot be performed a return code of 3B hex is returned. 
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3.8 Restrictions 


° 


The user must specify a buffer which is equal to or greater than the logical record 
length of the file requested. 


If the KIF_GET_CHAR command is requested, the buffer size must be 68 or more bytes. 


The maximum number of files that may be opened without terminating KEYSFILE with 
a KIF_TERM command is 16. 


For each file opened there is an additional 40 words of memory allocated. 


An initialization call (KIF_INIT) is required before KEYS$FILE is used for the first time. 
This call must not be utilized more than once during program execution without first 
terminating the process via a KIF_TERM command. 


If the pathname referenced in the KIF_STATUS_BLOCK is more than 30 characters, 
a synonym must be used. 


A separate status block must be maintained for each file opened. The KIF_ RESERVED 
byte in this block must not be modified by the user. 


The KIF file used in an open must already exist. TAXO proc CFKEY may be used to 
create a key indexed file. 


Files are opened with the access privileges set to "shared". The access is reset via 
the KIF_SET_ACCESS command. KIF_SET_ACCESS will return an error code of 3B 
hex if KIF_SET_ACCESS fails. 


EE —————————— ee 
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4 PASCAL CRT I/O PROCEDURES 


4.1 Introduction 


On the Pascal object disk is a directory, DXPASCAL.TIP.MISC, which contains the source 
and object for a set of procedures for doing I/O to the CRT on TAXO. If the user is not sa- 
tisfied with the features of the supplied procedures, he is invited to change them to meet 
his needs. The following documentation describes the procedures and how to invoke them. 


4.1.1 Procedure Descriptions 


All procedures require access to an array, B, which is used for information storage between 
calls to the procedures, 


INITSCREEN (B,U) Initializes the date structure 'B' and supplies 
the unit number U for the CRT to which the 
ACCEPT/DISPLAY calls will be made. This call 
must be made before any other calls. U is a luno 
on TAXO and must be assigned prior to execu- 
tion of this call. 


CLEARSCREEN (B) Blanks the screen. 


DISPLAY (B,L,C,S,N) Displays string S beginning at line L, column C. 
The length of the field is the lesser of N or the 
length of the string S. If the line or column is 
zero, the field will begin at the end of the pre- 
vious field displayed. 


SETFILLER (B,X) Use character X as the filler character on sub- 
sequent ACCEPT calls. The default is blank fill. 


ACCEPT (B,L,C,S,N,T) Read into string variable S from the field beginning 
at line L, column C. The length of the field is 
the lesser of N or the length of the variable S. 
Character variable T is set to the termination 
character. If line or column are Zero, the field 
will begin at the end of the previous field. The 
following is a list of character codes returned 


in T. 

HEX CODE KEY 

we ERASE-FIELD 
80 CNT '1' 

81 function key A 
82 % B 
83 C 
84 " D 
85 . E 
86 ‘ F 
89 TAB 

8A CURSOR-DOWN 


ERASE-FIELD 


ERASE-INPUT 


HOME 


SKIP 


DELETE-CHARACTER 


TAB 


4/2 


HEX CODE KEY 


8B SKIP 

8c HOME 

8D FIELD-RIGHT/RETURN 
8E ERASE-INPUT 
93 ENTER 

94 FIELD-LEFT 

95 CURSOR-UP 

96 function key G 
97 " H 
98 COMMAND 

99 PRINT 

9A CNT '2' 

9B BLANK-ORANGE 
9C CNT ‘4! 

9D CNT '5' 

9E CNT '6' 

9F CNT '7' 


The following is a description of the operations 
which will occur if the specified character is 
struck: 


This key fills the field with the fill character and 
positions the cursor at the beginning of the field. 


This key acts the same as erase field but returns 
to the calling task with the character code 8E. 


This key positions the cursor at the beginning 
of the field and returns to the calling task with 
the character code 8C. 


This key fills the field from the present cursor 
position to the end of the field with the fill cha- 
racter, places the cursor one character position 
beyond the field, and returns to the calling task 
with the character code 8B. 


This key deletes the input character under the 
cursor, moves all characters within the field to 
the right of the cursor left one character position, 
replaces the last character position of the field 
with the designated fill character, and leaves 

the cursor at its position prior to the keystroke. 

lf there are no characters from the present cursor 
position to the right end of the field, this key 
gives a warning beep. 


This key accepts all characters from the present 
cursor position to the first fill character (if other 
than a blank) or to the end of the field, leaves 
the cursor one character position past the end 
of the field, and returns to the calling task with 
the character code 89. 
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INSERT-CHARACTER 


FIELD-LEFT 


CURSOR-LEFT 


CURSOR-UP 


CURSOR-RIGHT 


CURSOR-DOWN 


FIELD-RIGHT/RETURN 


ENTER 
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lf the character under the cursor is the fill charac- 
ter and not a biank, this key gives a warning 
beep and does nothing. Otherwise, it sets the 
input mode to insert characters, and gives a war- 
ning beep when an inserted character causes 
characters to be lost on the right end of the field. 
Any keystroke not entering data will change 

the input mode back to the non-insert mode. 


This key positions the cursor to the beginning 

of the field. If the cursor is at the beginning of 
the field, this key returns to the calling task with 
the character code 94. 


If the cursor is at the beginning of the field, this 
key gives a warning beep. Otherwise, it moves 
the cursor left one character position. 


This key returns to the task with the character 
code 95. 


This key leaves the character under the cursor 
intact and moves the cursor right one character 
position. 


This key returns to the calling task with the cha- 
racter code 8A, 


Same as TAB except the character code returned 
is 8D. 


Same as TAB except the character code returned 
is 93. 
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4.2 Procedure Declarations 


Programs which use.these routines will need to include the following set of external procedure 
declarations: 


TYPE BTYPE = ARRAY(.1..16.) OF INTEGER; 
PROCEDURE INITSCREEN ( VAR BLOCK : BTYPE; 
UNIT ; INTEGER ); EXTERNAL; 
PROCEDURE DISPLAY ( VAR BLOCK : BTYPE; | 
LINE, COLUMN : INTEGER; | 
BUFFER : PACKED ARRAY (. 1..? .) OF CHAR; | 
LENGTH : INTEGER); EXTERNAL; 
PROCEDURE ACCEPT ( VAR BLOCK : BTYPE; 
LINE, COLUMN : INTEGER; 
VAR BUFFER : PACKED ARRAY(. 1..? .) OF CHAR; 
LENGTH : INTEGER; 
VAR TERMINATIONCHARACTER : CHAR ); 
EXTERNAL; 
PROCEDURE CLEARSCREEN ( VAR BLOCK : BTYPE ); 
EXTERNAL; 
PROCEDURE SETFILLER ( VAR BLOCK : BTYPE; 
C : CHAR ); EXTERNAL; 


The array size for TAXO must be a minimum of 16. 


4.3 MISC Directory Contents 


The MISC directory is not automatically installed when installing the Pascal package. If the 
user wished to use the source or object that is supplied, the appropriate files must be copied 
from the DXPASCAL disk to the user's disk. The following lists the files and their contents: 


DXPASCAL.TIP.MISC.ACCDXS - Pascal source for the TAXO CRT I/O routines 
DXPASCAL.TIP.MISC.ACCDX0 - Object for the TAXO CRT I/O routines. 
DXPASCAL.TIP.MISC.ACCDOC - Contains this document 


4.4 Linking Procedures 


After compiling the user's program and copying the object files to the user's disk, the linking 
of the Pascal program can be done. A specific include for the file ACCDXO is required. 
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5 OTHER TAXO INTERFACES 


Following are a couple of special routines for interfacing with TAXO which are in the 1.6 
run-time library but are not documented in the manual. 


5.1 FILESFLAGS 


The FILESFLAGS procedure allows users to directly read TAXO directories as RANDOM files, 
or to create temporary files. It must be declared thus: 


PROCEDURE FILES$FLAGS ( VAR F: ft; USAGE: INTEGER; 
TEMPORARY: BOOLEAN ); EXTERNAL; 


where ft is any file type. FILESFLAGS may be called before a file is opened to set some of 
the special TAXO file flags in the supervisor call block. The parameters are: 


F the file being referenced 
USAGE the file usage code, which is one of the following: 


0 -- no special usage 
1 -- directory file 

2 -- program file 

3 -- image file 


TEMPORARY specifies the temporary file flag: 


TRUE --a temporary file will be created which will automatically be 
deleted when it is closed. 
FALSE -- normal file which remains after task termination. 


Note that the call FILESFLAGS (F,0,FALSE) specifies the default conditions which apply when 
FILESFLAGS is not used. 


5.2 TRMS$MSG 


The library routine TRM$MSG may be used to specify a message which SCI will display on 
the user's terminal (or in the batch listing in batch mode) after the program terminates. It 
must be declared thus: 


PROCEDURE TRM$MSG ( MSG: PACKED ARRAY 1..? ] OF CHAR); EXTERNAL; 


and is then called with a string constant or variable as its parameter. A copy of the string 

will be saved, and when the program terminates (either normally or abnormally), the string 

will be passed to SCI via SSSTOP. TRMSMSG may be called any number of times, but only 

the last message specified will be displayed. Thus, TRM$MSG may be called at the beginning 
of a program to specify a message to be displayed if the program terminates abnormally, 

and then called again at the end of the program to specify the message for normal termination. 
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6 FORTRAN TO PASCAL INTERFACE 


6.1 General Description 


6.1.1 Introduction 


In order to allow a FORTRAN application to use subroutines coded in Pascal, some special 
handling is required to provide the necessary context for the Pascal subsystem. A FORTRAN 
to Pascal interface macro copy file is provided on the file "DXPASCAL.TIP.MISC.FPMACROS" 
to minimize the impact of this set-up on the Pascal developer. The macro library for the inter- 
face is not regularly installed on a system when Pascal is installed, but it may be copied with 
the Copy Concatenate SCI command (CC) to a more convenient place on the system. 


The basic environment for an application containing a FORTRAN main program and Pascal 
subsystems is shown in Figure 6-1 below. 


+------- + t----—- ~ 
FORTRAN (Calls) : Reedameteel Pascal 
application --—--—---— a | Pascal z — aa age | SUDSyStem 
ee interface | 
FORTRAN —e—flpt --—------+ = —- Pascal 
runtime —=sysmsg-—-—-- = --—--— runtime 
—a- -—-termination- —---—--— 


fo-----t F----4 


Figure 6-1 FORTRAN/Pascal Linkages 


The arrows show the connections between various elements of the system. The FORTRAN 
to Pascal interface box in the center must be written by the developer of the FORTRAN cal- 


lable Pascal subsystem. Although the various boxes are logically distinct, they are link edited 
into one task. 


6.1.2 Restrictions 


There are some limitations to the interface support, which hopefully do not seriously affect 
writing FORTRAN callable subsystems. These restrictions are listed in the following paragraphs. 


6.1.2.1 Minobj Runtime Support 
The interface support has been defined within the bounds of the minimal runtime. The restric- 
tions of using this library are in force regarding memory dump, end-action handling, linkage 


to FORTRAN routines using |/O, runtime stack and heap allocation, access to SCI synonyms, 
and error messages in English. 


6.1.2.2 Reentrancy 


The interface is not reentrant and must be linked into the task portion of the application. 
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661269 Zo 
Pascal I/O is supported with the exception of the files INPUT and OUTPUT. Since the stack 


is purged with the completion of each subsystem, files must be opened and closed each time 
the subsystem is entered. 


6.1.2.4 Parameter Data Types 

Not all Pascal data types are supported by the interface. The allowed data types are integer, 
long integer, boolean, real, double precision real, and arrays of these types. String arrays 
(packed arrays of char) are also supporied. 


6.1.2.5 Arrays 


Only singly dimensioned arrays are supported by the interface. This is due to an incompatibility 


in the internal storage of arrays in Pascal and FORTRAN - row/column vs. column/row. Further- 


more, support is only provided for passing arrays by reference. eo 


6.1.2.6 Functions 


Pascal subsystems may only be subroutines for the FORTRAN application. They may not 
be functions. 


6.2 Writing the Interface Module 


To transfer control from a FORTRAN main program to a Pascal subsystem a small interface 

module must be written. One must be written for each separate subsystem. The FORTRAN 

to Pascal interface macro library simplifies the writing of this module. The basic steps wnich 
must be done are 

1. module definition with stack and heap requirements (macro MODULE). 


2. transfer of parameters from FORTRAN's parameter list to the Pascal stack (macros MOVPRM, 
PSHPRM, MOVECT). 1g 


3. transfer of control to the Pascal subsystem (macro CALL). 
4, return of control to the FORTRAN caller (macro EXIT). 


The macros to accomplish these steps are described in the paragraphs which follow. In reading 
the syntax for the macros, the following notation applies: 


° <..> = generic meaning of a macro parameter 


sa [..] = encloses an optiona! macro parameter. Consecutive commas may be used 
as a place holder when a parameier other than the last is not specified. 


e UPPER CASE = actual characters required 


2 lower case = generic name for something to be supplied by the user 
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Having coded the interface module with these macros, it should be assembled with the Macro 
Assembler using the macro copy file provided on the Pascal installation disk as the operand 
of a COPY directive in the interface module. A 3.3 version of the Macro Assembler is required. 


6.2.1 Module Definition 


The first statement in the interface module should be a use of the MODULE macro. The syntax 
for this macro is: 


MODULE <name>,<no. of parms>,[ <stack> ], [ <heap> ],[ <heap type> ] 


The <name> identifies the name by which the FORTRAN program calls the Pascal subsystem. 
A maximum of 6 characters is allowed. 


The <no. of parms> is the number of parameters being passed to the interface module by 
the FORTRAN caller. It may or may not be the actual number of used by the Pascal subsystem. 
A maximum of 15 is allowed. 


The <stack> specifies the number of bytes needed for the stack area. If not specified, a 
default of 1024 is used. 


The <heap> specifies the byte size of the needed heap area. If not specified, a default of 
1024 is used. 


The <heap type> may be common or unique. If this parameter is present then unique is assumed. 
To get common heap, leave this parameter off the macro call. With common heap, all Pascal 
subsystems will use the same heap area, with the heap begin reinitialized on each entry into 

a Pascal subsystem. This works in most cases, unless variables declared in COMMON are 

used to store pointers into the heap between activations of a subsystem, or pointers are passed 
back to the FORTRAN caller. In these cases, unique heap is required. 


6.2.2 Setting up Parameters 


To place parameters in the stack for the Pascal subsystem, three macros are provided. Each 
reference of one of these macros puts 1 parameter on the stack. The order of the macro 
references should match the order in which they are defined in the Pascal procedure being 
called. With the exception of arrays, variables may be passed either by reference or by value. 
Arrays may only be passed by reference. 


6.2.2.1 "“MOVPRM" MACRO 


This macro is for transfering a parameter directly from the FORTRAN parameter list to the 
Pascal stack. The syntax for this macro is: 


MOVPRM <passed by>,<type>[ ,<position>] 


The <passed by> macro parameter should be: 


° 


VALUE - passed by value 


. REF - passed by reference (Pascal VAR parameter) 
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The <type> parameter may have one of the following values: 


° BOOL - Pascal boolean; FORTRAN LOGICAL 
= INT - Pascal integer; FORTRAN INTEGER*2 
° LINT - Pascal longint; FORTRAN INTEGER*4 


REAL -— single precision real 
DREAL - double precision real 


The <position> macro parameter should indicate the position in the FORTRAN parameter 

list (starting with 1) where the variable may be found. The macros keep an internal symbol 
with the current position. Specifying this parameter will reset that symbol to the given value. 
After the macro has completed it updates the internal position symbol. If the FORTRAN para- 
meter list and the Pascal parameters are in the same order, this parameter is not required 

at all. Example 6-1 shows some sample usages of this macro. 


COPY FPMACROS 
MODULE EXAMPL,3,200,100 
MOVPRM REF,DREAL,3 
MOVPRM VALUE,DREAL,1 
MOVPRM REF,INT 

CALL PSUB 

EXIT 

END 


Example 6-1 MOVPRM Usage 

The MODULE macro generates labels and IDTs such that only one of these may appear in 

a module. Interfaces to several Pascal subsystems may be coded into one source file as long 
as each one is separated by an END statement. 


6.2.2.2 "MOVECT" MACRO 


This macro is provided for transfering singly dimensioned array parameters - vectors - from 
the FORTRAN parameter list to the Pascal stack. The syntax for this macro is as follows: 


MOVECT <allocation>,<type>[ ,<position>] 
The <allocation> macro parameter should be 
2 STATIC, or 
e DYNAMIC 
A static array is one with the upper bound specitied at compile time in the Pascai procedure. 
A dynamic array is one which has a question mark upper bound, to be determined at run 


time. 


The <type> macro parameter may have the 5 basic types described in the MOVPRM description, 
plus two additional ones to ease the passing of string data: 


_ CHAR - for unpacked arrays of characters 


# STRING - for packed arreys of characters 
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The <position> parameter is exactly the same as for the MOVPRM macro. 


When dynamic vectors are passed, it is necessary for the FORTRAN program to pass an upper 
bound value to the interface. This is assumed to be parameter i+1 in the FORTRAN parameter 
list where (i) is the position of the vector parameter. For most types of vectors this upper 
bound is the same as the declared dimension of the array. For string arrays this is the number 
of characters or bytes. If the array had been declared in the FORTRAN routine as INTEGER*2, 
then the upper bound to be passed would be twice that of the declared dimension. When 
dynamic arrays are used, the internal position symbol is automatically incremented past this 
upper bound parameter. Example 6-2 shows a usage of this macro with both types of arrays, 


COPY FPMACROS 

MODULE XXX,3 3 TOTAL PARAMETERS 
MOVECT DYNMIC,REAL 1ST 2 PARMS FROM FORTRAN 
MOVECT STATIC,INT 3RD PARM FROM FORTRAN 
CALL XXXP 

EXIT 

END 


Example 6-2 MOVECT Usage 


6.2.2.3 PSHPRM MACRO 


This macro is provided for the situation where it is desireable for the interface itself to set 
up a parameter for the Pascal subsystem. The syntax for this macro is as follows: 


PSHPRM <passed by>,<type>,<location> 


The <passed by> and <type> parameters are the same as for the MOVPRM macro. The 
<location> parameter may have one of the following values; Rn,*Rn, *Rn+, @x, If the parame- 
ter is to be passed by value then the indexed mode (@(Rn)) may also be used, Example 6-3 
shows a possible use of this macro. 


COPY FPMACROS 

MODULE EX,1 1 FORTRAN PARM 
MOVPRM VALUE,REAL 

LI R6, 'ON' 

PSHPRM VALUE,INT,R6 

CALL PENTRY 

EXIT 

END 


Example 6-3 PSHPRM Usage 


6.2.3 Branching to the PASCAL Subsystem 


The macro provided for this function is the CALL macro. The syntax for this macro is as follows: 


CALL <name> 
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The <name> macro parameter is the procedure name of the Pascal subsystem. If desired, 
one interface module may call several Pascal subsystems, setting up parameters as neces- 
sary for each subsystem. Example 6-4 shows an interface module with several CALL macros 
used, 


COPY FPMACROS 

MODULE FPINT,4 DEFAULT STACK AND HEAP 
MOVPRM VALUE, INT 

CALL PSUB1 


MOVPRM VALUE,REAL 
MOVPRM VALUE,REAL 
MOVPRM REF ,DREAL 
CALL PSUB2 

EXIT 

END 


Example 6-4 CALL Macro Usage 


6.2.4 Returning to the FORTRAN Caller 


If the Pascal subsystem completes normally it will return to the interface module. To exit back 
to the FORTRAN caller, use the EXIT macro. The syntax for this macro follows: 


EXIT 


There are no operands for the EXIT macro. See any interface module example for a sample 
use of the EXIT macro. 


6.2.5 Full Example 


This example shows the entire set of calling sequences- FORTRAN, Pascal interface routine, 
and Pascal subsystem procedure declaration - for a Pascal subsystem to perform an add 
with real numbers. In the FORTRAN program, a call would appear as follows: 


REAL RESULT 
CALL ADDR(1.0,.999,RESULT) 


The Pascal interface module would be coded as follows: 


COPY FPMACROS 
MODULE ADDR, 3 
MOVPRM VALUE,REAL 
MOVPRM VALUE,REAL 
MOVPRM REF,REAL 
CALL ADDRP 

EXIT 

END 


The Pascal procedure declaration would be coded as follows: 


PROCEDURE ADDRP (OP 1, OP2: REAL; VAR ANSWER : REAL); 
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6.3 Linking AFORTRAN/PASCAL Application 


The link control file for the entire FORTRAN application should contain the basic elements 
illustrated in Example 6-5 below. 


; PASCAL RUNTIME SUPPORT 
LIBRARY .TIP.MINOBJ 
LIBRARY .TIP,LUNOBJ 
LIBRARY .TIP.OBJ 

; FORTRAN RUNTIME SUPPORT 
LIBRARY .FORTRAN.OSLOBJ 
LIBRARY .FORTRAN.STLOBJ 


? 

TASK <application name> 
INCLUDE <FORTRAN program object> 
INCLUDE <interface module object> 
INCLUDE <Pascal subsystem object> 
INCLUDE .FORTRAN.STLOBJ.S$GTCA 

END 


Example 6-5 Sample Link Control File 


There may be more than one Pascal subsystem and interface module, but the order should 
remain 1)FORTRAN program, 2)interface module, 3)Pascal subsystem. If this order is not ad- 
hered to, improper resolution of Pascal runtime support may result. 


6.4 Runtime Considerations 
6.4.1 "MESSAGE" Procedure 


When executing with a FORTRAN main program, the normal SYSMSG file is implemented with 
the Terminal Local File which is shown automatically upon completion of a foreground execution 
of the task, or shown with a Show Background Status command (SBS) after completion of 

a background execution of the task. 


6.4.2 Error Reporting 


If the Pascal subsystem terminates abnormally due to a runtime error detected in Pascal, 

a standard Pascal error message is output and traceback started with the Pascal subsystem 
name. Example 6-6 shows the contents of a Terminal Local File resulting from not assigning 
all the necessary lunos for a Pascal subsystem. The name "ADDDR" is the name referenced 
by the FORTRAN program and defined in the interface module. 


CODE = P601 PC = 230E STACK: >00F8 HEAP: >0026 i 
PASCAL SUBROUTINE, P$STOP CALLED ERROR AT >67D8 IN ADDDR 
CALLED AT >0090 IN $MAIN 


Example 6-6 Interface Error Logging 
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6.5 Implementation Internals 


The information in this section is not required to use the interface package. It is provided 
as reference material for understanding or modifying the provided macros and runtime support 
routines. 


6.5.1 MACRO Support 
6.5.1.1 Module MACRO Details 


The MODULE macro is responsible for performing several functions in establishing the Pascal 
subsystem environment. Source statements are generated which 


s define the IDT and necessary DEF's | 
e define all the macro keywords for subsequent macro calls 
s set up data areas such as the process record, assorted common areas, and the task ww 


information block 


. fetch the parameter list from FORTRAN 


¢ force load the FORTRAN version of SYSMSG support, PSSTOP, FPSDEF, and INSTIB 


6.5.1.2 MODCOM MACRO 


This macro is not to be directly used by the coder of the interface module. It is referenced 
by the "MODULE" macro. The syntax for a call of this macro is: 


MODCOM [ <stack>] ,[ <heap>] ,[ <heap type>] 
A detailed description of these parameters is provided in the MODULE macro. The actual 
defaulting of the parameters is performed in this macro, not in the MODULE macro. They 


are simply passed down verbatim to this macro by the MODULE macro. 


This macro creates and initializes the various common areas needed by Pascal: 


- CURS ~- task information block and process record 
2 HPS - heap 
° STS - stack 


6.5.1.3 MVNXT MACRO 

This macro is not intended to be referenced by the coder of the interface module. It is refe- 
renced by the PSHPRM macro to move each successive word of a multi-word passed-by-value 
parameter onto the Pascal stack. The syntax for this macro is as follows: 


MVNXT <parm location> 
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The <parm location> parameter to the macro is a text string of the location of the current 
word of the Pascal parameter. The macro updates the string value of the assembler symbol 
table symbol "PL;" for the current word of the Pascal parameter depending on the addressing 
mode. It also generates the MOV instruction necessary to transfer the word pointed to by 

the updated string. The string value of the symbol "PL;" should be considered an output of 
the MVNXT macro. The following lines show the basic code sequence necessary to generate 
the proper MOV move instructions to push a double precision real parameter onto the stack: 


$VAR X 
$ASG 'PL;' TO X.S 


MOV ¥*R3,*SP$+ 
MYNXT *R3 
MVNXT :X: 
MVNXT :X: 


Model statements of this type are generated by the PSHPRM macro. The PSHPRM macro 
when expanded would produce the following source lines in the listing: 


PSHPRM VALUE,DREAL,*R3 } user coded source line 


MOV *R3,*SP$+ { out of PSHPRM { 
MVNXT *R3 {out of PSHPRM | 
MOV 2(R3),*SP$+ { out of MVNXT { 
MVNXT 2(R3) Sout of PSHPRM } 
MOV 2(R3)+2,*SP$+ {out of MVNXT } 
MVNXT 2(R3)+2 {out of PSHPRM { 
MOV 2(R3)+2+2,*SP$+ } out of MVNXT } 


The actual code generated by PSHPRM and MVNXT varies depending on the addressing mode 
and data type of the parameter. 


6.5.2 Special Runtime Support 


Several special versions of Pascal runtime support are provided in the minimal runtime. The 
proper versions are ensured to be linked in by force loading them from the MODULE macro. 
These support routines are described in the following paragraphs. 
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6.5.2.1 FPSDEF MODULE 


This module defines some symbols in the task information block/process record normally defined 
by the Pascal P$MAIN task initialization routine. The entries should remain BSSs in order to 
ensure that this version of the CUR$ common area does not override the data initialization 
provided in the MODCOM module. 


6.5.2.2 INSTIB MODULE 


This module provides initialization of the task information block. It will only do the actual ini- 
tialization the first time it is called. Subsequent calls will simply return. This routine is called 
by the interface macros. It is not intended to be referenced directly by the coder of the in- 
terface module or by the Pascal subsystem. To call INSTIB, place the address of the task 
information block in workspace register R4 and do a "BL GNSTIB". 


6.5.2.3 FEPSMSG MODULE 


This module replaces the Pascal runtime module MSG for doing output to the SYSMSG file. 
It writes the SYSMSG information through the F$XLOG module in the FORTRAN runtime. 


6.5.2.4 FPS$STP MODULE 


This module replaces the Pascal runtime module P$STOP for doing termination. It interfaces 
to the FORTRAN runtime routine FSERRS, It will continue FORTRAN error traceback starting 
at the assembly language interface module. 
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PREFACE 


This manual describes the Pascal programming language as it is implemented on the Model 
TA 1600/30 Computer. This manual is intended to show a programmer familiar with another 
language how to use Pascal. It also serves as a reference to which a programmer may refer 
to resolve questions about the language. It is not meant to be adequate to serve as a tutorial 
for those unfamiliar with programming. 


Throughout the manual! Pascal is compared to the version of Pascal described in Pascal User 
Manual! and Report, K. Jensen and N. Wirth, Springer-Verlag, 1975. 


The manual is organized into fifteen sections and nine appendixes including: 
Section 


1 Introduction - Provides an overview of the language, lists the extensions and modifi- 
cations specific for Pascal, and compares the language to FORTRAN and to PL/I. 


2 Overview - Provides an overview of language elements and of the program and data 
structure of Pascal. The concept of scope is introduced, and an example program 
is presented and described. 


3 Notation and Vocabulary - Describes the notation used in the manual, including BNF 
productions and syntax diagrams. Defines the language elements, 


4 The Assignment Statement - Describes the assignment statement and the expression 
used in the assignment statement. 


5 Enumeration Types and Related Statements - Describes the enumeration types INTEGER, 
LONGINT, and BOOLEAN. Also describes machine-dependent enumerations types CHAR, 
REAL, FIXED, and DECIMAL. Describes the user-defined enumeration types, scalar 
and subrange. Describes the ASSERT, Compound, IF, WHILE, REPEAT, CASE, and 
FOR statements, 


6 Structured Data Types - Describes the structured data types and the statements related 
to these types. Describes the ARRAY, RECORD, SET, and FILE types, and the proce- 
dures used to manipulate these types. Describes the WITH statement and the POINTER 
type. Also discusses type compatibility and type transfer. 


7 Jump Statements - Describes the ESCAPE statement and the GOTO statement, the 
two jump statements of the language. 


8 The Program and Its Routines - Describes the Pascal program structure in detail, and 
the declarations required. Describes the LABEL, CONSTANTS, TYPE, VARIABLE, COMMON, 
ACCESS, PROCEDURE, and FUNCTION declarations. Describes the methods of para- 
meter reference provided, and describes the scope and extent of variables and 
routines. 


9 Compiler Options - Describes the options available in the compiler and the option 
comment that specifies an option. 


IV 


10 Formatting Source Code - Describes source code preparation and the source formatter 
utility, NESTER. 


11 The Compiler - Describes SILT1, SILT2, and CODEGEN, the three phases of the compiler, | 
and describes the handling of errors in source code by the compiler. | 


12 Separate Compilation - Describes the problems of separately compiling one or more 
modules of a program, and the configuration processor, a utility that assists in separate 
compilation. Also describes the split program utility and the split object utility, which 
also relate to separate compilation. 


13 Reverse Assembler - Describes the reverse assembler RASS and its output. 

14 Linking and Executing Pascal Tasks - Describes the options for linking Pascal tasks. 
Describes the debug commands provided for Pascal tasks. Also describes the types 
of runtime errors and the abnormal termination dumps provided. 

15 Computer Dependent Source Code Preparation Techniques - Describes routines that 
a user program may call for direct CRU |/O and operating system interface. Also des 
cribes guidelines for preparing source code for each linking option. 


Appendix 


A Pascal Standard Routines - Describes the standard procedures and functions included 
with Pascal software. 


B Example Programs - Describes four example programs, 


Cc System Dependent Information for TAXO Release 3 - Describes the implementation 
of Pascal files and device I/O provided by TAXO. 


D Pascal Syntax - Summarizes the BNF productions and syntax diagrams from the entire 
manual. 
E Error Messages - Lists the compiler and runtime error messages, the error codes, and 


the error messages provided by the Pascal debug commands. 


F Assembly Language Routines - Describes the interface required for routines written 
in assembly language, including task termination routines. 


G ASCIl Character Set - Lists the characters of the ASCII character set with the hexa- 
decima! and decimal values corresponding to each character. 


H Overlays in Pascal Programs - Describes the overlay structure available to the user 
for Pascal programs, and how to use it. 


I Type Conversions ~ Describes the implied conversions between types and the methods 
of performing type conversions, implied and explicit. 


Pascal /0982/e 


IA TRIUMPH-ADLER 


Vil 
TABLE OF CONTENTS 
Paragraph Title Page 


SECTION 1. INTRODUCTION 


1 Pascal 1-1 
2 Extension and Modifications to Pascal 1-1 
3 Comparison with FORTRAN 1-3 
4 Comparison with PL/I 1-5 
5 Organization of the Manual 1-5 


SECTION 2. OVERVIEW 


2.1 Program Structure 2-1 
2.2 Data Types 2-1 
2.2.1 Simple Types 2-2 
2202 Enumeration Types 2-2 
2.2.3 Structured Types 2-3 
2.2.4 Storage Requirements 2-3 
2.3 Declarations 2-3 
2.4 Statements 2-3 
2.5 Example Program 2-4 
SECTION 3. NOTATION AND VOCABULARY 
det Syntax Notation 3-1 
3.2 Basic Syntax Elements 3-2 
3.2.1 Identifiers 3-3 
3.2.2 Numbers 3-4 
3.2.3 Strings 3-5 
3.3 Separators 3-5 
SECTION 4. THE ASSIGNMENT STATEMENT 
4.1 Assignment Statement 4-4 
4.2 Operators and Expressions 4-2 
SECTION 5. ENUMERATION TYPES AND RELATED STATEMENTS 
S31 Enumeration Types 5-1 
5.2 INTEGER and LONGINT Types 5-1 
5.3 BOOLEAN Type 5-2 
5.4 The ASSERT Statement 5-2 
5.5 The Compound Statement 5-3 
5.6 Conditional and Repetitive Statemenis 5-4 
5.6.1 The IF Statement 5-4 
5.6.2 The WHILE Statement 5-6 
5.6.3 The REPEAT Statement 5-6 
5.7 Machine Dependent and User-Defined Enumeration Types 5-7 


Vill 


TABLE OF CONTENTS (Continued) 


Paragraph Title 


CHAR Type 

SCALAR Type 

SUBRANGE Type 

CASE and FOR Statements 
The CASE Statement 

The FOR Statement 
Expressions 

REAL Type 

FIXED Type 

DECIMAL Type 


YO @ NNN 


Worn 
° 


wmorg 
Na2OWN LU OWh 


= - ot 


SECTION 6. STRUCTURED DATA TYPES 


Array Type 

Array Procedures 

Static and Dynamic Arrays 
Record Type 

Records 

Variants 

WITH Statement 

SET Type 

FILE Type 

Sequential Files 

Textfiles 

Formatted I/O with Textfiles 
ENCODE and DECODE 
Random Files 

Alternate Forms 

1/O Error Handling 

Pointer Type 

Static and Dynamically Allocated Variables 
PACKED Data Types 
Packed Arrays 

Packed Records 

Internal Representation of Types 
The SIZE Function 

Type Compatibility 

Type Transfer 


O oO 
. 
- . 


O oO 
° 
. 


oe . . 
° .- 8 * 


WOWOMHFWNH NAH KHANH LFWNHH HLFWN--| ND = = 


DNDN 
NUNN og 


SECTION 7. JUMP STATEMENTS 
1 The ESCAPE Statement 
Py The GOTO Statement 
SECTION 8 THE PROGRAM AND ITS ROUTINES 


8.1 The Pascal Program 
8.2 Declarations 


NDNDNDKHDAKDHAAAAA 
ANE EFWONHN LN OS 


NDANDNDNKDKDADAHDAAKHA AA YD 
Ww Ww Ww Ww Ww Ww Ww 
HOannn — = ™ 


Pascal/0982/e 


TA TRIUMPH ADLER 


TABLE OF CONTENTS (Continued) 


Paragraph Title Page 
8.2.1 Label Declaration 8-2 
8.2.2 Constant Declaration 8-2 
8.2.3 Type Declaraction 8-2 
8.2.4 Variable Declaration 8-4 
8.2.5 Common Declaration 8-4 
8.2.6 Access Declaration 8-4 
8.2.7 Routine Declaractions 8-4 

Bsei76) Forward Declaraction 8-6 

8.2.7.2 Externa! Declaraction 8-7 

8.3 Statements 8-7 
8.4 Procedure and Function Calls 8-8 
8.5 Parameters 8-10 
8.5.1 Rules for Parameters 8-13 
8.5.2 Dynamic Array and Set Parameters 8-14 
8.5.3 Procedure and Function Parameters 8-15 
8.5.4 Procedures and Functions Without Parameters 8-15 
8.6 ‘Block Structure 8-16 
8.7 Scope and Extent 8-17 
8.8 Side Effects 8-21 
8.9 Common and Access Declarations 8-22 


SECTION 9. COMPILER OPTIONS 


General 

The Option Comment 
Listing Contro! Options 
List Option 

Widelist Option 

Map Option 

Page Option 
Warnings Option 
Sideeffects Option 
Object Code Options 
Object Option 
Nullbody Option 
Traceback Option 
Asserts Option 
Runtime Check Options 
CKINDEX Option 
CKOVER Option 
CKPREC Option 
CKPTR Option 
CKSET Option 
CKSUB Option 
CKTAG Option 
PROBER Option 
PROBES Option 


:0 30 30 0 0 0 
es o®- @ 
' 1st 
OMDDOAONINNNNNN FEE PHP PFWwW Www = = 


WDODUNAKHEWNABAUNEWNDERHRO EWN BWN 


0 0 0 30 
' 


NHHHHHHAAHr rrr Ow bLLL www 
1 


PPP Preyer eer Pe yaererrreree 


. 


TABLE OF CONTENTS (Continued) 


Paragraph Title Page 
9.6 Miscellaneous Options 9-9 
9.6.1 72COL Option 9-9 
9.6.2 FORINDEX Option 9-9 
9.6.3 GLOBALS Option 9-9 
9.6.4 ROUND Option 9-9 
9.7 Optimization Contro! Options 9-12 
9.761 UNSAFEOPT Option 9-12 
9.7.2 OPTIMIZE and GLOBALOPT Options 9-12 
SECTION 10. FORMATTING SOURCE CODE 
10.1 General 10- 
10.2 Coding 10-1 
10.3 Source Formatter 10-1 
10.3.1 Nester Functions 10-1 
10.3.2 Nester Option Comment 10-6 
10.3.3 Executing Nester 10-8 
10.3.4 Nester Error Messages 10-8 
10.3.5 Nester Example 10-9 
SECTION 11. THE PASCAL COMPILER 
11.1 General! 11-1 
11.2 Compiler Execution Overview 11-1 
11.2.1 PREPROC 11-1 
W122 SILT 1 11-1 
11.2.3 SILT2 11-3 
11.2.4 T9OPT 11-3 
11.2.5 CODEGEN 11-7 
11.2.6 PSCLXREF 11- 
11.3 Source Management Directives T1-2 
11.3.1 Copy Command 11-3 
11.3.2 Conditional 11-3 
1.3.2.1 ?SET 11-4 
1.30202 PIF 11-4 
153.23 ?ELSE 11-4 
1.3.2.4 ?ENDIF 11=4 
11.3.3 Nesting Commands 11-4 
1.4 Sci PROCS 11-4 
11.4.1 XTIP 41-5 
11.4.2 XSILT 11-6 
11.4.3 XCODE 11-6 
11.4.4 XPP 11-6 
11.4.5 XPX 11-6 
11.5 "OPTIONS" Prompt 11-6 
11.5.1 Mode of Execution 11-7 
11.5.2 Lines per Page Me7 
11.5.3 Print Width 11-7 


XI 


TABLE OF CONTENTS (Continued) 


Paragraph Title 


Cross Reference 

Disabling Source Preprocessing 
Controlling Preprocessor Output 
Compiler Options in the PROC 
Error Handling 

Pascal Compiler Listing 
Preprocessor Summary 

Source Listing with Errors Generated by SILT2 Phase 
Optimizing Summary 

CODEGEN Summary 

Cross Reference 

Message File Description 


OnHrFWNUAUAUNUSE 


SECTION 12. SEPARATE COMPILATION 


Genera! 

Requirements for Separate Compilation 
The Configuration Processor 
Functional Description of CONFIG 
Format of Source Modules 
Process Configuration 

BUILD PROCESS Command 

ADD Command 

CAT PROCESS Command 
Process Configuration Command Example 
USE PROCESS Command 
Compilation 

COMPILE Command 

SPLIT OBJECT Command 

EXIT Command 

Compilation Examples 

Source Listing 

LIST Command 

LISTDOC Command 

LISTORDER Command 

Listing Examples 

Flags 

SETFLAG Command 

Flag Command 

Conditional Flag Command 

Flag Examples 

Modifying a Process Configuration 
DELETE Command 

MOVE Command 

DISPLAY Command 

USE OBJECT Command 

USE Command 


| 3 3 
* 28 @ 


. 


—_ 

nN 

. 
OEwWNSBUEWNUAKAEWUNUHEWNULENWEFWNLWNLON 


—_ 


oh ad oS od Sd 
NNNNN 


®t of ah od 
NN DN PP 
. . . 
° . 
. . x 


SB oS o3 ot 
NNN PY 


WWWLLNLLWUNLWLHLNWLULLNWLWWLD 
- *« 


Pascat/0982/e 


TA TRIUMPH-ADLER 


—_ 


° . e« ee ¢e@ @ 
. 7 @ e 


a ee a ee | 
oF FF OF 4 Be BP Ee Tore 
LWWYWNWWY Wh bw 
: 


OWN | OND OLFWNH -— w 


NVNFL 
Noe rUDNM EWN BDWH EWN Oho 


PREF L Lb bbbYEFNNN 


Xil 


TABLE OF CONTENTS (Continued) 


Title 


Libraries 

MASTER Command 

LIBRARY Command 

OBJLIB Command 

ALTOBJ Command 

SETLIB Command 

DEFAULT SOURCE Command 
DEFAULT OBJECT Command 
Text Editing 

EDIT Command 

INSERT Command 

REPLACE Command 
Required Files 

Executing CONFIG 

Split Program Utility 

Split Program Command 
Input Example 

Library and Files 

Execution 

Split Object Utility 


SECTION 13. REVERSE ASSEMBLER 


General 

Required Files 

Executing the Reverse Assembler 
Example Listing 


SECTION 14. LINKING AND EXECUTING PASCAL TASKS 


General 

Pascal Runtime Optiens 

Execution Under TAXO 

LUNO 1/0 

Multitask Capability Under TAXO 

Minimal Runtime Capability 

Shared Procedure Capability 

Linking and Executing 

Linking for TAXO Execution Using SCi Synonyms 
Executing Under TAXO Using SCI Synonyms 
Linking for TAXO Execution Using LUNOs 
Executing Under TAXO Using LUNOs 
Linking Minimal Runtime 

Executing Minima! Runtime 

Linking for Shared Procedures 

Pascal Task Execution Considerations 
Synonym Table Overflow 

Condition Code 


Page 


12-31 
12-32 
12-32 
12-33 
12-33 
12-34 
12-34 
12-35 
12-36 
12-36 
12-37 
12-37 
12-! 

12-50 
12-40 
12-42 
12-42 
12-43 
12-43 
12-46 


13-1 
13=1 
13=1 
13=1 


Pascal/0982/e 


7A TRIUMPH-ADLER 


Xill 
TABLE OF CONTENTS (Continued) 
Paragraph Title 


5 Compiling, Linking, and Executing with a Batch Stream 
6 Debug Mode 

1 Pascal Debug Commands 

1 Assign Breakpoint-Pascal (ABP) 

2 Delete Breakpoint-Pascal (DBP) 

3 Delete and Proceed from Breakpoint-Pasca! (DPBP) 
4 Proceed from Breakpoing—Pascal (PBP) 
5 

6 

7 

7 

1 


List Breakpoints-Pascal (LBP) 

Show Pascal Stack (SPS) 

List Pascal Stack (LPS) 

Runtime Errors 

Runtime Checks 

14.7.2 Memory Space Errors 

14.7.3 Error Termination 

14.7.4 Use of the Abnormal! Termination Dump 

14.7.5 Unformatted Abnormal Termination Dump 
14.8 Runtime Library Routines 


SECTION 15. COMPUTER-DEPENDENT SOURCE CODE 
PREPARATION TECHNIQUES 


General 

Direct CRU I/O Routines 
Procedure $LDCR 
Procedure $SBO 
Procedure $SBZ 
Procedure $STCR 
Function $TB 

Operating System Interface Routines 
1/O Routines 

Procedure FINDSSYN 
Procedure STORESSYN 
Procedure SETSACNM 
Procedure SETLUNO 
Function DEVS TYPE 
Identification Functions 
Function TASKID 

Function STATIONID 

Time and Date Procedures 
Procedure ITIME 
Procedure IDATE 
Procedure DELAY 

Task Control Procedures 
Procedure BID 

Procedure SUSPEND 
Procedure ACTIVATE 
Message Handling Procedures 
Procedure PUTMSG 
Procedure GETMSG 


. . .- eo a | 
. . . 2. @ . 


QUEEF POLE NNb > DDD > LONNNNNAD 
NA OWN =| FWNH A WNANYLFWN A aA WO WDN AD = 


. . 


Page 


14-20 
14-20 
14-22 
14-23 
14-24 
14-25 
14-26 
14-27 
14-28 
14-29 
14-32 
14-32 
14-32 
14-33 
14-38 
14-39 
14-46 


XIV 


TABLE OF CONTENTS (Continued) 


Paragraph Title 


15.3.5.3 Procedure PRGMSG 
5.3.6 System Common Access Procedures 
15.3.6.1 Procedure SYSCOM 
15.3.6.2 Procedure RLSCOM 
15.3.7 Semaphore Procedures 
1553372.1 Procedure RESETSEMAPHORE 
1533.742 Procedure TESTANDSET 
5.3.8 Procedure SVC$ 
15.4 Dummy Main Routine 
15.5 Program Consideration for LUNO |/O 
15.6 Program Considerations for Multiple Tasks 
15.7 Program Considerations for Minimal Runtime Code 


LIST OF APPENDIXES 


Appendix Title 


Pascal! Standard Routines 

Example Programs 

System Dependent Information for TAXO 
Pascal Syntax 

Error Messages 

Assembly Language Routines 

ASCIl Character Set 


zt fhum soa Ww > 


Overlays in Pascal Programs 


Type Conversions 


LIST OF ILLUSTRATIONS 


Figure Title 
2-1 Pascal Example Program 
3-1 Syntax Diagram Symbols 
5-1 Syntax Diagrams for Expressions 


8-1 Syntax Diagrams of Block 

8-2 Syntax Diagram for Routine Declaraction 
8-3 Syntax Diagram for Statement 

8-4 Access to Variables in Program Structure 
8-5 Access to Routines in Program Structure 


Page 


TA TRIUMPH-ADLER Pascal/0982/e 


XV 


LIST OF ILLUSTRATIONS (Continued) 


Figure 


Title 


A Source Listing With WIDELIST and MAP Options Enabled 
Execution Time Displays for PROBER and PROBES Options 
Compiler Source Listing-PROBER and RPOBES Options Enabled 


NESTER Statement Example 
NESTER Example 


Conditional Source 
Preprocessor Listing 
Source Listing with Errors 
Message File 


Flow of Separate Compilation Using CONFIG 

Contents of OUTPUT File, Initial CONFIG Run, Full Compilation 
Source Listing, Full Compilation Example 

Contents of OUTPUT File, Deferred Processing, Full Compilation 
Contents of OUTPUT File, Initial Run, Partial Compilation 
Source Listing, Partial Compilation Example 


Contents of OUTPUT File, Deferred Processing, Partial Compilation 


Contents of OUTPUT File for LIST Operation 
Contents of OUTPUT File for LISTDOC Operation 
Batch Stream for Separate Compilation 

Example of Input to SPLITPGM 


RASS Listing Example 


Batch Stream for Compiling, Linking, and Executing a Pascal Program 


Abnormal Termination Dump Example 
Linking Map of Example Program 
Unformatted Abnormal Termination Dump Listing 


Semaphore Example 


Page 


9-5 
9-8 
9-10 


10-6 
10-10 


11-5 
11-9 
11-10 
11-12 


12-4 

12-11 
12-12 
12-14 
12-14 
12-15 
12-17 
12-20 
12-24 
12-41 
12-44, 


13-3 

14-21 
14-34 
14-40 
14-43 


15-15 


XVI 


LIST OF TABLES 


Table Title 
9-1 Pascal Compiler Options 
10-1 NESTER Options 
10-2 NESTER Errors 
11-1 Files Required by the Compiler Tasks 
12-1 System Flags 
12-2 Files Required for CONFIG 
14-1 Pascal Runtime Libraries 
14-2 Nonsharable Runtime Library Routines 


15-1 Device Type Codes 


Pascai/0982/e 


TA TRIUMPH-ADLER 


1/1 


1 INTRODUCTION 
1.1 PASCAL 


The programming language Pascal has been designed to facilitate the construction of reliable, 
transportable systems and scientific programs. It is a relatively easy language to learn and 

to use. However, a basic assumption in the design of the language is that readability is as 
important as writeability. Many programs undergo modifications during their lifetime and the 
ease of modification is dependent on the ability of a programmer (frequently not the original 
author) to read and understand the program. Other considerations in the design of the language 
look forward to the development of more sophisticated techniques for verifying the correctness 
of programs. In some instances these considerations have resulted in restrictions or omission 

of features which programmers might otherwise find useful. For this reason it is possible that 
some other languages which have "special-purpose" features may be better suited for some 
applications (such as complex string processing or pattern matching). 


Pascal does have excellent bit-manipulation capabilities, and is ideally suited for a wide variety 
of applications ranging from areas of system programming to the scientific and engineering 
programs traditionally written in FORTRAN. The Pascal compiler is itself written in Pascal. 

At present, other successful projects at Pascal using the language include a text editor, a 
library management system, and numerous utility programs such as an object code compress 
utility, and a track mapper. In addition, favorable benchmarks have been obtained against 
FORTRAN-coded routines for a realtime navigation system. This manual describes the language 
as it is implemented on the TAXO operating system. It is intended for new users of Pascal. 


1.2 Extensions and Modifications to Pascal 


Pascal offers a number of enhancements to and modifications of the Pascal language as 
described in Pascal User Manual and Report, K. Jensen and N. Wirth, Springer-Verlag, 1975. 


The following are the enhancements provided by Pascal: 
Random access files (paragraph 6.5.5). 


e Common variables having global extent and scope as specified by ACCESS declarations 
(paragraph 8.9). 


= Dynamic bounds for arrays and sets (paragraph 8.5.2). 

e Multiprecision integer variables (paragraph 5.2). 

. Multiprecision real variables (paragraph 5.10). 

. FIXED data type (paragraph 5.11). 

. DECIMAL data type (paragraph 5.12). 

2 ESCAPE statement for exit from structured statements (paragraph 7.1). 
e Explicit type override operator (paragraph 6.9). 

2 ASSERT statement (paragraph 5.4). 
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External procedures and functions using FORTRAN linkage (paragraph 8.2.7.2). 
TA Computer dependent procedures and functions (Section 15). 
Additional type-checking for procedure and function parameters. 
Underscore (_) and dollar sign ($) in identifiers (paragraph 3.2.1). 
Constant expressions (paragraph 5.9). 

FOR statement with IN generator (paragraph 5.8.2). 

Function LOCATION (paragraph 6.6). 

Dynamic array and set parameters (paragraph 8.5.2). 

Empty parameter lists for procedures and functions (paragraph 8.5.4). 
CLOSE procedure (paragraph 6.5). 

SIZE function (paragraph 6.7.4). 

HALT procedure (paragraph A.3), 

MESSAGE procedure (paragraph A.3). 

Hexadecimal constants (paragraph 3.2.2). 

ENCODE and DECODE procedures (paragraph 6.5.4). 

More reliable form of WITH statement (paragraph 6.3). 

OTHERWISE clause and subrange case labels with CASE statement (paragraph 5.8.1). 
Formatted READ operation (paragraph 6.5.3). 

READ from a TEXT file into a string variable (paragraph 6.5.3). 

DATE procedure (paragraph A.3). 

TIME procedure (paragraph A.3). 


The relational operators < and > may be applied to sets (paragraph 6.4). 


The modifications to Pascal are: 


° 


Restriction of side effects of user-defined functions (paragraph 8.8). 
Resiricted use of GOTO statement (paragraph 7.2). 

Local scope of FOR statement control variable (paragraph 5.8.2). 
Altered precedence for Boolean operators (paragraph 4.2). 


More flexible I/O functions and procedures (paragraph 6.5). 
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2 Pre-defined symbol MAXINT is not supported. 

2 RESET procedure required for textfile INPUT (paragraph 6.5.2). 

= REWRITE procedure permitted for textfile OUTPUT (paragraph 6.5.2). 

. WRITE procedure replaces PUT (paragraph 6.5). 

@ READ procedure replaces GET (paragraph 6.5). 

e Types of parameters of routines that are passed as parameters must be declared 


(paragraph 8.5.3). 


The Pascal programmer may refer to the paragraphs that describe the extensions and modifica- 
tions without studying the entire manual in detail. The user who is not familiar with Pascal 
may study the entire document to familiarize himself with the language. 


1.3 Comparisons with FORTRAN 


Pascal has a well-thought-out collection of control structures and allows statements to be 
composed from other statements in very general ways. As a result, Pascal provides many 
improved capabilities for organizing the flow of control of a program. In contrast, although 
it has forms such as 


IF(X.GT.MAX) MAX = X, 


FORTRAN allows only very limited composition of statements. The component of the IF state- 
ment cannot be another IF statement, or a DO statement, for example. Pascal allows the 
component of a structured statement such as an IF statement to be any statement, for example 
a compound statement (for performing a sequence of operations), a FOR statement (for looping), 
or another IF statement. In addition, other statements such as the WHILE, REPEAT, and CASE 
statements (which have no close counterparts in FORTRAN) can be used very effectively 

to produce well-structured, readable programs. The need for GOTO statements is greatly 
minimized in Pascal. 


Certain statements which are generally considered to be unreliable, such as the arithmetic 
IF, computed GOTO, and EQUIVALENCE statement, have been omitted from Pascal. 


Many implementations of FORTRAN do not have a strong type checking feature. The same 
variable may often be used in completely different contexts, for example, as a character 
and then as an integer, with no error messages or warnings given by the compiler. 


On the other hand, a type is associated with each Pascal variable, and when the source 
program is compiled, all assignments, expressions, and parameters are checked for type com- 
patibility. In addition to real and integer, Pascal includes character and Boolean types and 
also has more general structured types such as records and sets as well as arrays. 


There is no conversion from real to integer in Pascal except by explicit use of procedures 
TRUNC and ROUND. In particular, it is not legal to assign a real value to an integer variable. 
In some instances, there are implicit conversions in Pascal, such as from integer or longint 
type to real, fixed, or decimal type. 
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Modular decomposition of a program is accomplished by routines in Pascal. A Pascal routine 
is either a procedure or a function which corresponds to a subroutine or function respectively 
in FORTRAN, In FORTRAN, variables are shared among subprograms by parameter passing 

or by means of COMMON declarations. Pascal has call-by-value and call-by-reference for 
passing parameters, while most versions of FORTRAN have only call-by-reference. COMMON 
declarations in Pascal differ from those in FORTRAN. In addition, routines may be nested, 
that is, a routine may itself contain declarations of other routines. The scope rules of Pascal 
specify how variables and other objects declared at a higher level (such as a program) may 
be directly accessible at lower levels (such as routines declared within the main program). 


Storage for most variables is allocated from the stack at runtime in Pascal. At any moment, 
only the routines which are currently invoked have stack space allocated. When control returns 
from a routine, the stack space or stack frame used by that routine is made available for 

use by other routines. The result is that very efficient use is made of the available memory. 


Since each invocation of a routine is allocated a separate area in the stack for its variables, 
Pascal code is naturally reentrant. When a Pascal routine is interrupted and reexecuted, a 
new stack frame is allocated and new copies of the local (noncommon) variables are created. 
If the original execution is resumed, all local variables are restored to the same values as 
when the routine was interrupted by restoring a pointer to the original stack frame. 


Because a Pascal routine is able to directly access data structures and routines declared 
at a higher level (as long as the routine is within the scope of these declarations), separate 
compilation of routines requires that the appropriate local declarations be provided for the 
separately compiled routine. The configuration processor simplifies the process of separate 
compilation. 


Access to externally compiled FORTRAN routines is straightforward. A Pascal program can 
calla FORTRAN routine with a simple external declaration. 


Other differences between PASCAL and FORTRAN are summarized below: 


$ PASCAL functions may not have side effects, so that when a function is invoked, 
it may not change the values of any variables except those local to the function. 


2 FORTRAN imposes restrictions on the allowable forms which may be used for array 
subscripts. In Pascal a subscript may be a general expression. 


: There is nothing corresponding to a Statement Function in Pascal. 


e There are no FORMAT statements (although formatted I/O is supported) and there 
is nothing corresponding to the FORTRAN IMPLIED DO in Pascal. 


7 The control variable in a Pascal FOR statement may be incremented (or decremented 
in the case of DOWNTO) only by one. The loop will not be executed at all if the initial 


value is greater than the final value (or less than the final value in the case of DOWNTO). 


The control variable may not be altered within the FOR statement. 
2 There is not exponentiation operator (**) in Pascal. 


? Some versions of FORTRAN have a multiple assignment capability (X=Y=Z), but this 
does not exist in Pascal. 
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Some versions of FORTRAN have a multiple assignment capability (X=Y=Z), but this 
does not exist in Pascal. 


In FORTRAN, explicit declarations of variables are optional, In Pascal they are manda- 
tory, that is, each variable must be explicitly declared before it is used (except FOR 
control variables, synonyms in WITH statements, and escape labels). 


FORTRAN compilers ignore most blanks in the source program, Blanks are significant 
in Pascal, however, and are required in some contexts. For example, keywords and 
identifiers must be separated, so that 


X = YANDZ > 5 
is incorrect if the intended expression is 
X= YANDZ> 5 


Statements may be placed anywhere in columns 1-72 of the source records (or optionally 
records of any length may be used). There is no continuation column, comment column, 
or label field as in FORTRAN, Statements may be extended across record boundaries, 

but the end of each record is a separator, so that strings (written within quotes), identi- 
fiers, or keywords may not extend from one record to the next. 


In FORTRAN, it is permissible to end several DO loops on the same statement. In Pascal 
a compound statement (surrounded by a BEGIN - END pair) forms the unit to be repeated 
in a FOR statemeni. In this case, as well as in all other uses of BEGIN - END, each 
BEGIN must have its own END. There is no CONTINUE statement in Pascal, 


The COMPLEX type is not standard in Pascal, although it can easily be simulated 
by means of a user defined type. 


Column one of output files is not used for carriage control as it is in FORTRAN. WRITELN 
and PAGE procedures are used to control spacing. 


In FORTRAN, arrays are stored in column-major order while in Pascal they are stored 
in row-major order. 


In FORTRAN, a read executed after the last record in the file has been read causes 
end-of-file to become true. In Pascal, end-of-file becomes true when the last element 
in the file is read. 


FORTRAN logical variables correspond to Pascal Boolean variables. 


Comparisons With PL/I 


In comparison with PL/I, Pascal offers the following advantages: 


° 


The full language can be processed by implementations on small computer systems, 
Pascal more easily produces well~optimized code. 
Pascal provides better control structures, 


Pascal has fewer default conditions and fewer implicit conversions. 
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“ Data types must be explicit in Pascal and conversion and transfer of types must also 
be explicit. 
- Pascal is simple and avoids unnecessary alternative functions. 
There are efficient implementations of Pascal. 


1.5 Organization of the Manual 


Following an overview of the language, the manual describes the language in detail. Program- 
mers who are familiar with Pascal may only concern themselves primarily with the enhancements 
and modifications to the language. Others will need to study the language portion of the manual 
thoroughly. 


Section 9 describes the compiler options, and should be studied by all programmers. The re- 
maining sections describe the TAXO implementation of Pascal and the utilities available for 
program development. These utilities are: 


Source code formatter NESTER 
Configuration processor (for separate compilation CONFIG 
of program modules) 

Source code splitter SPLITPGM 
Object file splitter SPLITOBJ 


Reverse assembler RASS 
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2 OVERVIEW 


2.1 Program Structure 


Pascal is a programming language that promotes structured programming using a top down 
approach. One of the most distinctive features of the language and the resulting program 
is the structure. The overall structure is the program. 


A program in Pascal has a heading which gives the program a name and lists its parameters, 
if any, followed by the declarations and statements of the program, which are called a block. 
If the heading includes program parameters, the values for these parameters are passed to 
the program when it is executed. The block consists essentially of two parts: declarations, 
which serve to define the structure of the data upon which the program operates, and state- 
ments, which specify the structure of the operations which the program performs upon its 


data. 


The secondary structure within the program is the routine, which may be either a procedure 

or a function. Like the program, each routine consists of a heading and a block. The block 
contains the declarations of the routine, followed by the statements of the routine. The headings 
of all routines called in the statements of the main program must appear at the end of the 
declarations of the program. 


The declarations of each routine may include the headings of other routines. All routines called 
in a statement of a routine must be declared. 


Normally a routine is declared within the routine that calls it. When a routine is called by more 
than one routine, or by the main program and one or more routines, it must be declared at 
a point that makes it available to all routines that call it. 


The structure of a Pascal program implies a scope for data and routines declared in any block 
of the structure. The scope of a routine or of a data declaration consists of the blocks within 
which the routine may be called or the data may be accessed. In general, the scope of a 
routine or of data includes the block in which the routine or data is declared, all routines 
declared in the same block, and all routines declared in these routines. The scope of data 

is related to the extent of the data. The extent is the time during program execution during 
which the data may be accessed, and is, in general, the duration of execution of the scope 
of the data. The scope and extent are described fully in paragraph 8.7. 


Routines in Pascal may be overlays, and the program may be structured as a root phase 
and a series of overlays. Refer to Appendix H for further information. 


2.2 Data Types 


Another distinctive feature of Pascal is the structuring of data. All data items must be declared 
to be of a specific type. Pascal supports standard types and a means of declaring user defined 


types. 


The basic concept underlying the data structures is that of a data type. Every variable occur- 
ring in a Pascal program is associated with one and only one type. This type specifies how 
the value of the variable is represented at the machine level as a sequence of binary digits. 
For example, there is a representation for the data type REAL, the type INTEGER, the type 
CHAR (character), etc. 
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One advantage of the type concept in Pascal is that it allows complex programs to be written 
more easily and with greater reliability since the details of data representation are handled 
_by the compiler. The programmer rarely needs to know these details, unless packed data 
structures are being used. The effects of the packing algorithm are described in terms of 

the size of the individual data types in paragraph 6.7. Another significant reason for having 
types is that they divide the data objects into categories so that the compiler is able to check 
that consistent use of the data is being made in the program. For example, it is considered 
inconsistent to perform arithmetic operations on character data, so an attempt to add 1 to 
the letter 'A' is illegal and will result in a compile-time error. 


2.2.1 Simple Types 


Simple types form the fundamental elements of data for a Pascal program. They are the basic 
units from which the more complex data structures (discussed briefly in the next paragraph) 

are composed. A simple type is either one of the standard types INTEGER, LONGINT, BOOLEAN, 
CHAR, REAL, FIXED, or DECIMAL, or is defined by the programmer (scalar or subrange). 


2.2.2 Enumeration Types 


An enumeration type is characterized by the set of its distinct values, upon which a linear 
ordering is defined. For example, the type INTEGER consists of the set of integer values 

eseey —2, —1, 0, 1, 2, « Integer values are stored in two bytes, and the range of values is 
~32,768 through +32,767. The type CHAR consists of the character set available on the ma- 
chine anc includes 'A', 'B',..., 'Z', 'O', .., '9', as well as various other symbols and nonprint- 
ing control characters. The enumeration types consist of INTEGER, LONGINT, BOOLEAN, 

and CHAR, which are standard types, and scalar and subrange types, which are user defined. 
All enumeration types have a first value and a last value. They are ordered so that any value 
other than the first has a predecessor and any value other than the last has a successor. 
Also, comparing two enumeration values by means of the relational operators to determine 
their relative ordering is valid. 


Enumeration types are often used for counting purposes, for example, to index into an array 
or to contro! the number of iterations of a FOR statement. 


The basic operators for variables of enumeration types are assignment (: = see paragraph 4.2 


for the assignment statement) and the relational operators described below: i) 
< less than 

= equal 

> greater than 

<= less than or equal 

<> not equal 

>= greater than or equal 


The standard functions applying to enumeration types are: 


SUCC (X) the successor of X 

PRED (X) the predecessor of X 

ORD (X) the ordinal value of X (applies to all enumeration types except INTEGER and 
LONGINT) 


An attempt to take the successor of the largest value or the predecessor of the smallest value 
of an enumeration type results in a runtime error, if the subrange check (a compiler option) 


is turned on. Otherwise, the value which is returned is an undefined element of the enumeration. 
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2.2.3 Structured Types 


A structured type is composed from other types which are called components. The declaration 
of a structured type specifies the type(s) of its components and the structuring method by 
which they are composed. The structuring methods which are available in Pascal are the 
ARRAY, the FILE, the RECORD and the SET. In addition, there is the structured type POINTER, 
which is used to reference elements of a given type indirectly. 


2.2.4 Storage Requirements 


When using a high-level language such as Pascal, the programmer is usually not concerned 
with the amount of storage (in terms of bits or words) which is used by the simple types. In 
general, each simple type uses the least amount of storage that is conveniently accessible 

on the machine. This means that a type such as Boolean uses an entire word. However, for 
those applications for which it is necessary to manipulate bits or conserve storage, Pascal 
allows some data structures to be packed so that several components of the structure may 
occupy one word. Referencing a component of the packed structure then allows that portion 
of the word to be accessed directly. Packing may be used to economize storage requirements, 
but this may result in a loss of efficiency of access. The structured types which may be packed 
are ARRAY, RECORD, and SET. 


2.3 Declarations 


The declarations of the program consist of the parts listed below. Each part is optional, but 
any declarations which are used must appear in the order listed. The exact syntax for each 
declaration is given in paragraph 8.2, but a brief description of its purpose is given after each 
declaration here. Examples appear throughout the manual. 


Label declaration (for integer labels referenced by GOTOs) 

Constant declaration (synonyms for number, character, Boolean, and string constants) 

Type declaration (associates an identifier with a type specification) 

Variable declaration (declares variables and specifies their type) 

Common declaration (declares variables which do not follow the normal scope and 
extent rules) 

Access declaration (declares access to common and optionally, nonlocal variables) 

Routine declaration (defines procedures or functions) 


2.4 Statements 


Statements describe the actions which a computer program performs on its data. Statements 
may contain other statements as components, in which case they are structured; otherwise 
they are simple. Simple statements include the assignment statement, PROCEDURE statement, 
ESCAPE statement, ASSERT statement, and GOTO statement. Most of the structured statements 
are used to control the sequence of execution of other statements, that is, they are used 

to form loops and conditional branches. The different forms which the loops, branches and 
transfers can take are collectively called the control structures of the language. The control 
structures of Pascal produce programs which are reliable and very readable. The structured 
statements are the compound statement, the conditional statements IF and CASE, the repetitive 
statements WHILE, REPEAT, and FOR, and the WITH statement, which is used with records. 
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2.5 Example Program 


Figure 2-1 shows an example Pascal program. Notice that the lines of the program contain 
both upper and lower case letters. Users may use upper and lower case letters interchangeably. 
This sometimes promotes the readability of the program. 


The program consists of the program heading, the declarations, and the statements. The decla- 
rations of the example program consist of a constant declaration and two variable declarations. 
The program heading must be first, followed by those declarations that are applicable, in 

the proper order. Note that no label, type, common, access, or routine declarations are included 
in this example. Each declaration is separated from the following declaration by a semicolon; 
the last declaration is separated from the first statement by a semicolon. 


The statements of the program are structured into a single compound statement. Within the 
compound statement (from the first appearance of the reserved word BEGIN to the last ap- 
pearance of the reserved word END) the component statements are separated by semicolons. 
One of the component statements is a structured statement, specifically a FOR statement, 

one of the repetitive statements. Within the FOR statement is another compound statement, 
the component statements of which are separated by semicolons. The reserved word END 

that terminates the top level compound statement is followed by a period (.), which terminatw 
the program. 


Program INFLATION; 

(* Find the factor by which the dollar is devalued after 
N years for N= 1, 2, ..., 10. Use annual inflation 
rates of 7, 8, and 10 percent *) 


Const N = 10; 

Var YEAR : Integer; 
Rl, R2, R3: Real; 

Begin 


Writeln(' YEAR 7 PERCENT 8 PERCENT 10 PERCENT'); 
R12 := 1.0; R2 := 1.0; RS s= 1.03 
For YEAR := 1 To N Do 


Begin 
Rl] :@ R1*1.07; 
R2 := R2*1.08; 
R3 := R3*1.10; 
Writeln(YEAR, Rl, R2, R3) 
End 
End. 


Figure 2-1. Pascal Example Program 
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3 NOTATION AND VOCABULARY 


3.1 Syntax Notation 


The syntax of a programming language describes the form which a legal program in that lan- 
guage may take. In a language such as Pascal, the syntax may be expressed very concisely 
by either syntax diagrams or by the more traditional Backus-Naur Form or BNF (sometimes 
called Backus—Normal form). 


In BNF, each element of the language is defined by means of an equation-like rule called 

a production. The entity being defined is written to the left of the symbol ::= and the defini- 
tion is written to the right of that symbol. The definition may be expressed in terms of language 
elements which are defined by additional productions. The following symbols are used in 
writing definitions: 


3 for writing productions, means "is defined to be", 
<> for enclosing nonterminal symbols, i.e., entities which are defined by a production, 
[] for enclosing entities which are optional, 
for enclosing entities which may be repeated zero or more times, 
| for representing alternatives, e.g., A! B1C means A or BorC., 
NOTE 


Both brackets ([ ]) and braces ( ) are used in Pascal as terminal symbols. When 
used in BNF productions to specify terminal:symbols, the brackets and braces are 
enclosed in quotation marks. 


For example, an identifier may be defined as: 


<identifier> ::= <letter> }<id character>} 
<id character> ::= <letter> | <digit>i _ 
<letter> s:=AIBICIDI...IZI$ 
<digit> sx 1!I2I13141516171819 101 


In this manual the language syntax is specified by BNF productions. The BNF productions 
are supplemented by syntax diagrams to illustrate the syntax of Pascal declarations and state- 
ments. 


A syntax diagram is a directed graph with a single input edge and a single output edge. The 
graph represents a syntax rule. Any possible path from the input edge to the output edge 
corresponds to an application of the syntax rule. A syntax diagram, in contrast with a BNF 
production, does not reflect the precedence of operators. The symbols that appear in syntax 
diagrams are shown in figure 3-1. An example of a syntax diagram representing the syntax 
of an identifier also is shown in figure 3-1, 
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- LETTER - 


| 
REPRESENTS RESERVED WORD BEGIN | 
: 

| 

G) REPRESENTS A SEMICOLON 


Identifier: 


REPRESENTS NON- TERMINAL SYMBOL LETTER OR $ 


Figure 3-1. Syntax Diagram Symbols 


3.2 Basic Syntax Elements 
The Pascal character set consists of the letters A-Z, the digits 0-9, and the special characters 
t-*/".,52e'<>()[] ple? @?_s 


Lowercase letters may be used; however, the Pascal compiler translates these letters to up 
case. This means that the reserved word BEGIN can also be entered as Begin or as begin. 
It also means that identifiers MYPROG, Myprog, and myprog are not unique; the compiler 
processes any one of them as if it were MYPROG. 


Using these characters, certain special symbols are formed which have a fixed meaning in 
the language. Some of these special symbols are used for operators and delimiters: 


t+-*¥ f/pe es >< <a >e > iz 


CGI a yes* "eC? 
NOTE 


To delimit array indices and sets, (. .) may be substituted for []; to delimit comments, 
(* *) may be substituted for i ; and to identify pointers, © may be substituted for { . 
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Other special symbols are reserved words. 


ACCESS ELSE LABEL REAL 
AND END LONGINT RECORD 
ARRAY ESCAPE MOD REPEAT 
ASSERT FALSE NIL SET 
BEGIN FILE NOT TEXT 
BOOLEAN FIXED OF THEN 
CASE FOR OR TO 
CHAR FUNCTION OTHERWISE TRUE 
COMMON GOTO OUTPUT TYPE 
CONST IF PACKED UNTIL 
DECIMAL IN PROCEDURE VAR 
DIV INPUT PROGRAM WHILE 
DO INTEGER RANDOM WITH 
DOWNTO 


Reserved words have a fixed meaning and may not be used as identifiers since they may 
not be redefined in a Pascal program. 


3.2.1 Identifiers 


Identifiers are used as names denoting constants, variables, types, procedures, functions, 
programs, and escape labels. In Pascal, identifiers consist of a letter or $, followed by any 
combination of letters, digits, $, or _. A maximum length is imposed by the restriction that 
identifiers may not cross record boundaries and hence may not be more than 72 characters 
long. All characters in an identifier are significant, except in the case of program, routine, 
and common names which are limited to 6 characters by the link editor. These names should 
be unique in the first 6 characters. Also, since TAXO file names are not allowed to contain 
an underscore, an underscore should not be used in the first six characters of a program 

or routine name when the object split utility or Configuration Processor (see Section XIl) will 
be used. The syntax for identifiers is: 


<identifier> ::= <letter> <letter>I<digit>| _ 


Examples: 

Legal identifiers Illegal identifiers 

X VAR (RESERVED WORD) 

SARRAY _MAXVAL (CAN'T START WITH _) 

VERY_LONG_IDENTIFIER ARRAY-BOUND (CAN'T CONTAIN -) 

VALUE _3 3RDVAL (CAN'T START WITH 3) 

SQRT FIRST NUM (CAN'T CONTAIN BLANK) 
NOTE 


Some identifiers are standard in Pascal, that is, they have a predefined meaning, but 
they may still be redefined by the programmer in which case the standard meaning 

is no longer available. For example, if SQRT is declared as a variable, then the standard 
SQRT function is no longer available. A list of standard routines is given in an appendix. 
Also, since routines from the runtime library for Pascal always include a $ in their 
name, conflicts with these names may be avoided by not using $ in identifiers. 
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3.2.2 Numbers 


Unsigned integer numbers are written as a string of decimal digits. The string may be preceded 
by a # sign to indicate hexadecimal notation and/or followed by L to indicate LONGINT. If 

the # sign is used to indicate hexadecimal then the number contains hexadecimal digits. The 
default precision for integer numbers is the precision that can be obtained with 16 bits (two 
bytes). The range of values is -32,768 through +32,767. Type LONGINT is available for extended 
precision. Values are stored in four bytes, providing a range of values from -2,147,483,648 
through +2,147,483,647. 


The following table shows the values represented by the 16 hexadecimal digits: 


Hexadecimal digit Decimal equivalent 


0-9 same 


mamMoaNw> 
—!. 
nN 


Hexadecimal integer constants are processed by the compiler as positive integers. They may 
consist of up to eight hexadecimal digits; values greater than 7FFF4¢ are converted to type 
LONGINT. In this conversion, the positive sign is extended; e.g., FACE 4¢ becomes OOOOFACEy¢. 
If this value is placed in an INTEGER type variable by means of an assignment statement, 

the LONGINT constant is converted to INTEGER type by truncation; e.g., OOOOFACE,¢ becomes 
FACE 46. If the integer variable is again converted to LONGINT (implicitly or explicitly), the 

most significant bit is considered to be the sign bit and is extended. For example, FACE4¢ 
becomes FFFFFACE4¢. The positive hexadecimal integer constant is no longer positive. 


Real constants are written according to the following syntax: 
<real constant> ::= [ <sign>] <digits> . <digits> 
| [ <sign>] <digits>[ . <digits>] E <scale factor> 
| [ <sign>] <digits>[ . <digits>] Q <scale factor> 
<scale factor> ::= <digits> | <sign> <digits> 
<sign> t= +1 - 
<digits> 3:= <digit> <digit> 


The syntax diagram is as follows: 


Real constant: 


DIGITS 
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Note that a decimal point must be surrounded on both sides by digits. A decimal number written 
as 


nnn.nnnEmm or nnn.nnnQmm 


represents the number nnn.nnn times 10 to the power mm. E represents the default precision 
while Q specifies that the constant is to be of the maximum precision available within 32 bits. 


The precision of a real constant is determined by the number of decimal digits specified. When 
seven or fewer digits are entered, the constant has the default precision. When eight or more 
digits are entered, the constant has the maximum precision. When the constant is supplied 

in the E format and eight or more digits are entered, the constant has the maximum precision. 


Examples: 
Integer numbers Real numbers 
126 12.69 
#25A 713E6 
#AFL 5.2E-4 
0006 999.2E+3 
237605L ‘ 3.14159268Q0 


Illegal numbers 


-00159 - Decimal point not surrounded by digits. 

75.E2 - Decimal point not surrounded by digits. 

2.0E10.0 - Real exponent not allowed. 

#56A6.3 - Hexadecimal notation not allowed with decimal point. 


In addition to real and integer types, FIXED and DECIMAL representations are also available. 
They are described in paragraphs 5.11 and 5.12. 


3.2.3 Strings 


A sequence of characters enclosed by apostrophes is called a string constant. String constants 
are represented internally as packed arrays of characters, as decribed in paragraph 6.7.1. 
A string constant cannot be longer than 70 characters. Any character may be represented 
in a string by a # followed by its 2-digit hexadecimal character code. This enables unprintable 


control characters to be included in strings. Within a string, 'is represented by" and # is repre- 
sented by ##, 


Examples: 


‘THIS IS A STRING’ 
"CARRIAGE RETURN #0D' 
‘ISN'T THIS RIGHT?" 
‘STEP ##10' 
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3.3 Separators 


At least one separator must occur between any two constants, identifiers, reserved words, 

or special symbols. No separator may occur within these elements, except that spaces may 
occur within strings. Separators are spaces, ends of lines, comments, or remarks, For example, 
in 


WHILE X <10 
a space separates WHILE and X. It is not equivalent to write: 
WHILEX< 10 


A comment is any sequence of characters beginning with } or (* and ending with *) or : 
except that 3 or (* does not begin a comment within a string. A remark is any sequence 

of characters beginning with a " and extending to the end of the logical source record, except 
that " within a string does not begin a remark. Comments and remarks serve to document 

a program and may be replaced by blanks without affecting execution of the program (with 
the exception of compiler options, which also take the form of comments. See Section 9 for 
compiler options). 
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4 THE ASSIGNMENT STATEMENT 


4.1 Assignment Statement 


An assignment statement specifies that the value of an expression is to be calculated and 
the result assigned to a variable. The form of an assignment statement is: 


<variable> := <expression> 
The syntax diagram is as follows: 


Assignment statement: 


VARIABLE © EXPRESSION 


The type of <expression> must be compatible with that of <variable>, which means that 
their types must be the same, with several exceptions. One exception is that it is permissible 
for <variable> to be of type REAL and <expression> to be of type INTEGER or LONGINT. 
Any conversions which are desired may be specified explicitly by a call to the appropriate 
function. Complete rules on type compatibility are given in paragraph 6.8. There is also the 
restriction that <variable> must not be of type FILE. 


Another use of the assignment statement is within the body of a function where the value 
computed is assigned to the identifier which denotes the function. In this case the type of 
<expression> must be compatible with the result type of the function. Functions are described 
in Section 8. 


There is a compiler option to check that values assigned to subrange variables (see paragraph 
5.7.3) are within the proper bounds. 


Examples: 


X:=A+2 

MAXVALUE := SQRT(I+J) - A¥SIN(X) 

P1@.NAME := 'PASCAL' (* POINTER, RECORD, AND STRING*) 
HUE := [ RED, SUCC(YELLOW) ] (* HUE IS OF TYPE SET *) 
FLAG := A> MAX (* FLAG IS OF TYPE BOOLEAN *) 


The expression on the righthand-side of the assignment statement specifies a computation 
which yields a value for the expression. Expressions consist of variables, constants, function 
designators, and operators such as +, *, <=, etc. 
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4.2 Operators and Expressions 


The two operands operated upon by an operator must have data types that are compatible 
(paragraph 6.8) and appropriate to the operator. In order to evaluate an expression, it is ne- 
cessary to know the meaning of each operator and its precedence, which specifies the order 
in which the operators will be applied. The operators are: 


Group 1: Multiplying operators: 


* Multiplication; set intersection 
v4 real division 
DIV integer division (divide and truncate) 


MOD modulus, A MOD X = A - ((A DIV X) * X) 
Group 2: Adding operators: 


~ addition; unary plus; set union 
~ subtraction; unary minus; set difference 


Group 3: Relational operators: 


= equal 

<> not equal 

< less than, proper set inclusion 

> greater than, proper set inclusion 
<= less than or equal, set inclusion 
> greater than or equal, set inclusion 
IN set membership 


Logical operators: 


Group 4; NOT Negation 
Group 5: AND Conjunction 
Group 6: OR Disjunction 


When used on strings, the relational operators denote alphabetical ordering according to the 
collating sequence of the ASCII set of characters, The ASCII character set is listed in Appen- 
dix G, 


The list of operators is in order of precedence, with groups of higher precedence listed first. 

In an expression, operators of highest precedence are evaluated first, and within each group, 
the operators have equal precedence and are evaluated from left to right within the expression. 
Parentheses may be used to explicitly specify the order of evaluation. 


Examples: 
Expression Value 
2+3%*5 17 
15 DIV4&*4 y 
NOT (5 + 5 >= 20) TRUE 
6+6DIV3 8 
3 <5 OR2>=6 AND 1>2 TRUE 


The syntax for expressions is given in detail in paragraph 5.9, 
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5 ENUMERATION TYPES AND RELATED STATEMENTS 


5.1 Enumeration Types 


Enumeration types were mentioned briefly in the overview of Section 2. Enumeration types 
are characterized by an ordered sequence of values. The functions which apply to enumera- 
tion types are SUCC (successor), PRED (predecessor), and ORD (ordinal value). ORD applies 
to all enumeration types except INTEGER and LONGINT. Also, the relational operators <, >, 
=, <=, >=, and <> apply to operands of enumeration type. Runtime checks are available 

to detect the error of taking the successor of the largest value of an enumeration or the pre- 
decessor of the smallest value of an enumeration. 


5.2 INTEGER and LONGINT Types 


A value of type INTEGER is an element of a finite set of whole numbers. The range of integer 
values is -32,768 through +32,767. The type LONGINT provides for extended precision integers; 
the range of values is -2,147,483,648 through +2,147,483,647. 


A nonsuffixed integer constant is of type INTEGER if its value lies within the subrange defined 
by the predefined type INTEGER, or LONGINT if its value lies outside the subrange defined 

by INTEGER but within the subrange defined by LONGINT. If an integer constant is suffixed 
with an L, it is of type LONGINT. 


The following operators are defined for INTEGER or LONGINT operands and yield an INTEGER 
or LONGINT result: 


+ unary plus or add 
- negate or subtract 
* multiply 


DIV __ integer divide (divide and truncate) 
MOD modulus (A MOD X = A - ((A DIV X) * X)) 


The standard functions applying to arguments of type INTEGER and LONGINT are: 


Function Value Result Type 

ABS(X) Absolute value of X. INTEGER 

SQR(X) X squared. INTEGER 

CHR(X) The character with the ordinal CHAR 
value of X. 

ODD(X) TRUE if X is odd, BOOLEAN 
FALSE otherwise. 

LOCATION - See paragraph 6.6 on pointers. INTEGER 


The standard functions which permit conversion of arguments of type INTEGER or LONGINT 
are: 


Function Value Result Type 
FLOAT(X,P) Real value with precision P. REAL 
FIX(P,Q,X) Fixed point value with precision (P,Q) FIXED-POINT 
DEC(P,Q,X) Decimal value with precision (P,Q) DECIMAL 
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The standard functions which permit conversion between INTEGER and LONGINT are: 


Function Value Result Type 

LINT(X) X of type INTEGER LONGINT 
converted to LONGINT 

TRUNC(X) X of type LONGINT INTEGER 


converted to INTEGER 


The arithmetic relational operators apply to INTEGER or LONGINT operands and yield a Boolean 
result. 


5.3 Boolean Type 


A value of type BOOLEAN is one of the logical truth values denoted by the reserved words 
TRUE and FALSE. 


Operators defined for Boolean operands which yield Boolean values are: 


NOT logical negation 
AND logical conjunction 
OR logical disjunction 


Since the type BOOLEAN is defined so that FALSE < TRUE, each of the possible Boolean 
operations can be defined using the Boolean operators listed above and the relational operators. 
For example, if P and Q are Boolean values: 


P<=Q expresses implication (P implies Q) 
P=Q expresses equivalence 
P<>Q expresses exclusive OR 


Because of the precedence rules, expressions involving Boolean and relational operators 
may have to be parenthesized in order to obtain the desired result. For example, to express 
the relationship between A and the logical conjunction of B and C: 


A = (B AND C) 


5.4 The ASSERT Statement 


ASSERT statements allow the user to specify by a Boolean expression a condition which should 
exist at a given point in a program. The form is: 


ASSERT <expression> 


The <expression> must be of type Boolean and must not contain the call of an external function. 
Each time flow of control passes through the ASSERT statement, the expression is evaluated, 

if ASSERTs are enabled (by a compiler option). If the expression is true, processing continues 
normally. If the expression is false, a runiime error occurs. 


Examples: 


ASSERT X = 0 
ASSERT MAX >= L 
ASSERT FNC(X) 
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Assert statements are an aid to program testing. They may be included at any point in a pro- 
gram where it is desired to test at runtime a condition or relation which should be true. When 
the ASSERT statement is disabled by a compiler option, the ASSERT may still serve as a useful 


comment. 
5.5 The Compound Statement 
A compound statement is written by enclosing a sequence of statements between the key- 
words BEGIN and END. The compound statement specifies that the component statements 
are to be executed one by one in the order in which they are written, but that the entire 
sequence is to be treated as a single statement. The syntax is: 

BEGIN <statement> } ; <statement> END 


The syntax diagram is as follows: 


Compound statement: 


STATEMENT 


The semicolon (;) is used as a statement separator, that is, it appears between statements, 
and need not appear after the end of the last statement. 


Example: 


BEGIN 
SWAP := X; 
X sa Y3 
Y := SWAP 
END 


Note that no semicolon is needed after the statement Y := SWAP. The presence of a semico- 
lon here would imply the existence of a statement between the semicolon and the END. This 
is an example of the empty statement which occurs wherever the syntax of Pascal requires 

a statement but no statement appears. In this case, the empty statement does no harm since 


its presence has no effect, Other examples of the empty statement (paragraph 5.6.1) may 
alter the intended meaning of the program. 


As an illustration of the empty statement, the compound statement 


BEGIN 
<statementi>; 
<statement2>; 
<statementn>; 

END 


is interpreted as 


BEGIN 
<statementi>; 
<statement2>; 
<statementn>; 
<empty> 

END 
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5.6 Conditional and Repetitive Statements 


A conditional statement contains an expression and one or more component statements. At 
runtime, the value of the expression determines which, if any, of the component statements 
is executed. The two types of conditional statement are the IF statement and the CASE state- 
ment. (See paragraph 5.8.1 for the CASE statement.) 


A repetitive statement specifies the repeated execution of its component statements. If the 
number of repetitions is known before the loop is entered, a FOR statement may be used, 
and if the number of repetitions is determined after the loop is entered, a WHILE or REPEAT 
statement should be used. 

5.6.1 The IF Statement 


The syntax of the IF statement is: 


IF <expression> THEN <statement1> 
[ ELSE <statement2> ] 


The syntax diagram is as follows: 


IF statement: 


STATEMENT 


a} 


STATEMENT 


The <expression> must be of type Boolean. If the value of <expression> is true, then <state- 
menti> is executed. If <expression> is false and the optional ELSE clause is included, then 
<statement2>is executed. 


Examples: 


IF A>=0 AND A <= 1 THEN X s= SIN(A) 
IF X < Y THEN MAX := Y ELSE MAX i= X 


Since there is no keyword that terminates the IF statement, the preceding syntax is ambiguous 
relative to ELSE clauses in nested IF statements. For example, in the statement 


IF <conditioni> THEN 
IF <condition2> THEN <statement1> 
ELSE <statement2> 


the "ELSE <statement2>" can be interpreted as belonging to either IF statement. This ambiguity 
is resolved by always associating an ELSE clause with the most recent unmatched THEN pre- 
ceding it. The preceding example then is interpreted as: 


IF <conditioni> THEN 
BEGIN 
IF <condition2> THEN <statement1> 
ELSE <statement2> 
END 
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Note that there is never a semicolon preceding the ELSE. The statement 


IF X > 0 THEN N :s=N + 1; 
ELSE N :=0 


contains a syntax error, since the semicolon would separate the initial part of the IF statement 
from a statement beginning with the reserved word ELSE, which is not possible in Pascal. 


Misplaced semicolons in some positions may not result in a syntax error, as the following example 
shows: 


IF CONDITION THEN; 
N :s=N + 1 


The IF statement is terminated by the semicolon, so that an empty statement is implied between 
THEN and N := N + 1, The assignment statement N := N + 1 is executed regardless of the 
value of CONDITION. 


It is important to realize that the component statements of IF statements may be any statements. 
Frequently an entire sequence of statements is to be executed if the condition is not TRUE, 


in which case the compound statement is used to group the sequence into a single statement, 
as the following example shows: 


IF X > 0 THEN C2 := SQRT(X) 
ELSE BEGIN 
Ct t= 08 


C2 := SQRT(-X) 
END 


A compound statement may also be used following the keyword THEN. 
The following examples illustrates a common misuse of the IF statement: 
IF X>0 THEN POS := TRUE ELSE POS := FALSE 


This statement is needlessly complex. The same result is more clearly accomplished by the 
simple assignment: 


POS := X>0 
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5.6.2 The WHILE Statement 
The WHILE statement consists of a Boolean expression and a component statement. The com- 
ponent statement is executed repeatedly as long as the Boolean expression is TRUE. The 
syntax is: ; 

WHILE <expression> DO <statement> 


The syntax diagram is as follows: 


WHILE statement: 


The <expression> must be of type Boolean. It is evaluated before <statement> is executed, 
so if <expression> is initially FALSE, then <statement> is not executed at all. w 


Examples: 
WHILE A> 0 DO A:=A - FACTOR 


WHILE ABS(TERM) > LIM DO 


BEGIN 

SINH := SINH + TERM; 

N :=N + 2; 

TERM := TERM * SQR(X) / (N * (N-1)) 
END 


The BEGIN - END pair delimits a sequence of statements to form a single compound statement 

which the syntax requires. 

5.6.3 The REPEAT Statement . 

The REPEAT statement provides another control structure for looping. It should be used when 

at least one execution of the component statements is always to be performed. (The WHILE 

statement allows for the possibility of no execution of the component statement.) The syntax is: 
REPEAT <statement> ; <statement> UNTIL <expression> 


The syntax diagram is as follows: 


REPEAT statement: 


STATEMENT 
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The <expression> must be of type Boolean, and there may be a list of statements between 
the REPEAT and UNTIL. At runtime, the component statements are executed and then <ex- 


pression> is evaluated. If it is FALSE, these actions are repeated. When the value of <expression> 


becomes TRUE, the looping is terminated. 
Example: 


1 := 0; SUM = 0; 
REPEAT 

Tse 1+ 1; 

SUM := SUM + SQR(I) 
UNTIL | = 10 


5.7 Machine Dependent and User-defined Enumeration Types 


The enumeration types CHAR, scalar, and subrange are discussed in this section. The values 
of type CHAR are machine dependent, and scalar and subrange types are user-defined. 


5.7.1 CHAR Type 


A value of type CHAR is an element of the character set used on the machine on which the 
program is executing. Each character is represented by its ordinal value which is the internal 
representation of the character on the machine. The standard function ORD may be used 

to determine the ordinal value of the character constant which represents a given character. 
For example, ORD('A") is 65 in ASCII (Appendix G). 


The following are properties of the character set: 
° 


The upper case Roman alphabet 'A'.. 'Z' is in the character set and is in order, i.e., 
ORD('A') < ORD("B') <...< ORD('Z"). 


The digits '0'.. '9' are in the character set, are in order, and are contiguous, i.e., 
SUCC('0") = "1", SUCC(*1") = °2", 20, SUCC("8") = ‘9. 


The blank character is in the character set. 


Character values are written as a single character surrounded by apostrophes. (Paragraphs 


6.1 and 6.7 discuss packed arrays of characters, which are used to represent strings of charac- 
ters.) 


There are two characters which require special treatment to be represented in strings: the 
apostrophe and the number sign (#). Each of these characters is represented by two conse- 
cutive characters. Also, recall from paragraph 3.2.3 that a character may be represented 
by a # sign, followed by its two-digit hexadecimal character code. 


"At cs te "sz! vy! "#0A' 


Since ORD(CH) is the number which is the internal representation for the character CH and 

since CHR(I) is the character whose internal representation is the number |, it is easy to see 
that within the proper subrange, ORD and CHR are inverse functions. Suppose CH is of type 
CHAR and | is of type INTEGER. Then: 


CHR(ORD(CH)) = CH 
ORD(CHR(I)) =1 
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Also, the following relations are true: 
SUCC(CH) = CHR(SUCC(ORD(CH))) 
= CHR(ORD(CH)+ 1) 
PRED(CH) = CHR(PRED(ORD(CH))) 


= CHR(ORD(CH)-~1) 


5.7.2 Scalar Type 
A scalar type is a programmer-defined data type. The values of a scalar type are elements 
of a set of identifiers specified by the programmer. Each identifier defines a value of the type, 
and the order in which they are written defines the order of the type. 
<scalar type>::= (<identifier> »<identifier> t) 
Examples: 
TYPE PRIMARY = (RED, YELLOW, BLUE); 
DAY = (MON, TUE, WED, THUR, FRI, SAT, SUN); 
IODEVICE = (ST01, STO2, LP01, CRO1, DSO1, DSO2, DSO3); 


The standard function ORD returns the ordinal number of a scalar value. The ordinal number 
of the first identifier is zero. 


Scalar values are used primarily to improve the readability of a program. For example, instead 
of using digits 0-6 to represent the days of the week, the definition of DAY above allows 
the identifiers MON, TUE, ..., SUN to be used as values. 
Examples: 
Using the scalar type definitions given above, 

ORD(MON) = 0 

ORD(YELLOW) = 1 

ORD(LP01) = 2 
Also, the standard type BOOLEAN is predefined by 

TYPE BOOLEAN = (FALSE, TRUE) 
This defines the standard identifiers FALSE and TRUE and specifies that FALSE < TRUE. 
Each identifier that appears as a value in a scalar type declaration may not be used for any 
other purpose within that scope. (See Section 8 for a discussion of scope.) For example, the 


type declaration 


TYPE COLOR = (RED, YELLOW, BLUE); 
SHADE = (VIOLET, RED, PURPLE); 


is illegal because the type of RED is ambiguous. 
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5.7.3 Subrange Type 


A type may be defined as a subrange of any previously defined enumeration type by specifying 
the least and largest values in the subrange. Thus a subrange type defines an interval over 

an existing enumeration type, which is called its associated enumeration type or base type. 
The syntax for declaring a subrange type is: 


<type identifier> = <manifest constant> .. <manifest constant> 


A manifest constant is a value which can be computed at compile time and is either an enume- 
tation constant or an integer constant expression. 


<manifest constant> ::= <enumeration constant> 
| <integer constant expression> 


<enumeration constant> ::= <scalar identifier> | <character constant> 
| <Boolean constant> | [ <sign>] <integer constant> 


Integer constant expressions are described in detail in paragraph 5.9. 
Examples: 


TYPE DEC =0..N-1; 
WORKDAY = MON... FRI 
DISK = DSO1.. DSO3; 
DIGIT = "0"... "9"; 


The first constant (the lower bound) must be less than or equal to the second (the upper bound). 


A subrange type may be used wherever the associated base type is allowed. Thus an operator 
defined for operands of a certain type may also be used with operands of subranges of that 
type. The result type of the operator will remain unchanged. For example, given that N is 

of the subrange type 1.. 10, N + 25 is a legal expression whose value is of type INTEGER. 

In the same manner, associated base types determine the validity of assignment statements. 
For example, given the declaration 


VAR X:1.. 10; 
¥ 30. 30; 
Z:20.. 30 


The assignments 


X ta Z; 
Z se Y; 
Y ie 23 


are all legal statements because the associated base types are all INTEGER. Of course some 
of the above assignment statements imply an “out of range" assignment for certain variable 
values. The compiler has an option available which may be turned on to check at runtime 
for illegal assignment to a variable of subrange type. If the value to be assigned is outside 
the subrange and the option is enabled, a runtime error occurs. 
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5.8 CASE and FOR Statements 


The enumeration types which have been discussed in the previous sections have important 
applications in the CASE and FOR statements, which are discussed next. While the IF state- 
ment uses a Boolean expression to select between two statements, the CASE statement uses 
an expression of any enumeration type to select from an arbitrarily large group of alternative 
statements. The FOR statement uses a control variable of any enumeration type to determine 
the number of iterations or repetitions of a loop. Using scalar types in these statements is 
very helpful in documentation, since descriptive identifiers help expiain the purpose of the 


program. 
5.8.1 The CASE Statement 
The CASE statement contains an expression and a list of statements, each one being preceded 
by a list of constants. The expression is called the selector and its value at runtime determines 
which, if any, of the component statements is executed. The syntax of the CASE statement is: 
<case statement> ::= 7) 
CASE <expression> OF 
<case element> }; <case element>{ 
[ OTHERWISE <statement> 3<statement> ] 
END 
<case element> ::= <case label list> : <statement> | <empty> 


<case label list> ::= <case label> , <case label> { 


<case label>::= <manifest constant> 
| <manifest constant> . .<manifest constant> 


The syntax diagrams are as follows: 


CASE statement: 


CASE element: 


MANIFEST STATEMENT 
CONSTANT 
MANIFEST MANIFEST 


CASE yp 
EXPRESSION 
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The <expression> is called the selector and must be of enumeration type. At runtime, the 
selector expression is evaluated, and the component statement labeled with the value of 

the selector is executed. If no such label appears within the CASE statement, the component 
statement or statements after the keyword OTHERWISE are executed, and if no OTHERWISE 
clause exists, a runtime error occurs. 


The subrange form 

<manifest constant> .. <manifest constant> 
may be used as an abbreviation to specify all of the values greater than or equal to the first 
enumeration constant and less than or equal to the second enumeration constant. The first 


enumeration constant must be less than or equal to the second. Any value may be in at most 
one CASE label. 


Examples: 
CASE NUM OF 
1,2,5 Xia X + 13 
6..10,20 . Xx = X * 10; 
15 : X t= X DIV 
END 
CASE CH OF 


'O'.. '9': N := ORD(CH) - ORD('0"); 
‘A'.. "F's N s= ORD(CH)-ORD('A') + 10 
OTHERWISE WRITELN(‘ILLEGAL HEX DIGIT"); N c= -1 
END 
5.8.2 The FOR Statement 
The FOR statement specifies that its component statement is to be executed repeatedly for 
a sequence of values which are assigned to the control variable of the FOR statement. The 
syntax is: 
<for statement> ::= FOR <control variable> <generator> DO <statement> 
<generator> ::= IN <set expression> 
|; = <initial value> TO <final value> 
| = <initial value> DOWNTO <final value> 


The syntax diagram is as follows: 


FOR statement: 


STATEMENT 
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The <initial value> and <final value> may be any expression of an enumeration type. 
Sets are discussed in paragraph 6.4. 
Examples: 


FOR J := -5 TO Z MOD 10 DO 
S:= S + SQR(J) 


(*ASSUME TYPE D = (MON, TUE, WED, THUR, FRI, SAT, SUN) *) 
FOR DAY := MON TO FRI DO 
BEGIN READ(HRS); PAY := PAY + HRS*RATE END 


FOR K IN ERRORSET DO 
WRITELN (MI K ]) 


The <generator> expression is evaluated once, when the loop is entered. Changing any of 

the values in the generator (either the set expression or the initial and final values) within 

the FOR statement does not affect the number of times the component statement is execul® 
The control variable is assigned the <initial value>when the FOR statement is entered, and 

is incremented (decremented in the case of DOWNTO) after each repetition of the component 
statement. The last repetition of the component statement is when the control variable is 
equal to the <final value>. If the initial value is greater than the final value in the case of 

TO (or less than, in the case of DOWNTO), then the component statement is not executed 

at all. In the case of a set generator, the values are taken in the order of the underlying base 
type of the set. 


Example: 


N := 10; 
FOR J:= 1TONDON :=N + 1 


This loop is repeated 10 times and the value of N is 20 when the loop terminates. 
Example: 


VAR X: SET OF A..Z; 


BEGIN 


FOR MIN X DO 
AIM] := 


The FOR statement is equivalent to the following FOR statement: 
FOR Ms= A TO Z DO 


IF MIN X THEN 
A[M]:=0 
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| The contro! variable is an implicitly declared variable, that is, it is declared by its appearance 
in the FOR statement. If the control variable does appear in the declaration part of the program, 
the two identifiers are distinct and a compiler warning is given if the proper option is enabled. 
(This is an enhancement to standard Pascal.) 


Example: 


PROGRAM FOREXAMPLE; 
VAR I, N, X : INTEGER; 
BEGIN 
READ(N); 
FOR | := 1TON DO 
BEGIN READ(X); 
WRITE(X) 
END: 
WRITELN 
END. 


The control variable | of the FOR statement in this example is distinct from the variable | from 
the VAR declaration. Any occurrence of | within the FOR statement is a reference to the 
control variable. The contro! variable | is not accessible outside the body of the FOR statement. 


Furthermore, it is not legal to change the value of the control variable within a FOR statement, 
either by an assignment statement or by passing it as a variable parameter to a procedure 
(see Section 8). An attempt to do so will result in an error. 
5.9 Expressions 
<factor> ::= <unsigned constant> | <variable> 
| <function identifier> [ ([ <expression> }» <expression> })] 
| (<expression>) | <set> 
<unsigned constant> ::= <constant identifier> | <real constant> 
| <integer constant> | <string constant> | <character constant> 
| <Boolean constant> | <scalar identifier> | NIL 
| <fixed point constant> | <decimal constant> 
<set> ::= "[ "<element list>"] " 
<element list> ::= <element> is <element> ' | <empty> 
<element> ::= <expression> | <expression>..<expression> 
<term> ::= <factor> | <term><multiplying operator><factor> 


<multiplying operator> ::= * | / | DIV! MOD 


<simple expression> ::= <term> | <adding operator><term> 
| <simple expression><adding operator><term> 


<adding operator> ::= + | - 
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<relational operator> ::= =| <> 1<|<=|>]>=1 IN 
<Boolean factor> ::= <Boolean primary> | NOT <Boolean primary> 


<Boolean term> ::= <Boolean factor> 
| <Boolean term> AND <Boolean factor> 


<expression> ::= <Boolean term> | <expression> OR <Boolean term> 
Figure 5-1 contains syntax diagrams for these expressions, 
Examples: 


Factors: 5 
| 
SIN(X) 
[ RED, GREEN ] 


Terms: X*Y 
I DIV J 
X/Y 
VAL MOD 6 


Simple Expressions: X+Y 
-Z 
B + SQRT(B*B-4*A*C) 


Boolean Term: NOT BOOL 
X= 3 AND Y >=2 
7 
te 


Expressions: X=30RY<>2 
P>=Q 
RED IN HUES 
(X + Y) DIVM 


An expression may contain both real and integer values. In such mixed mode expressions, 
the rule is that if either operand of a binary operator is real, then the result of the operation 
is real. (The operator / never produces an integer result.) The operators MOD and DIV require 
that both operands be INTEGER. 


Mixed Mode Expressions: 

(* assume VAR X: REAL; J: INTEGER *) 
J* 15.8 
X<eJ 


Illegal expressions: A*-5 Should be A*(-5) 
ot -(-T) 


Pascal/0982/e 


7A TRIUMPH-ADLER 


5/15 


Several features of expressions should be noted; first, the syntax of Pascal, by itself, permits 
some forms of expressions which have no reasonable interpretation and hence are semanti- 
cally illegal. For example, 


NOT5*2 


is a syntactically correct Boolean factor and therefore an expression, but NOT makes sense 
only when applied to a Boolean value, so this will result in an error at compile time. 


Another point has to do with the way in which Boolean expressions are evaluated, There 
is a frequent need for Boolean expressions such as 


|<=NANDA[!] <> X 


which is intended to be TRUE if | is less than or equal to N and the Ith value of array A is 
not equal to X, and FALSE otherwise. The problem is that if | is greater than N and A has 
upper bound N, the above expression is illegal because A[ |] is undefined for | > N. This 
problem is solved in Pascal by means of what is called short-circuit evaluation of Boolean 
expressions. In a Boolean expression of the form 


X AND Y 


if X is FALSE then Y is not evaluated and the value of the entire expression is FALSE. In a 
Boolean expression of the form 


X OR Y 


if X is TRUE, then Y is not evaluated and the value of the entire expression is TRUE. (This 
is an enhancement to standard Pascal.) 


Constant expressions may be evaluated at compile time and may, except where statement 
labels and more restricted integer constant expressions (see next paragraph) are required, 
occur anywhere that a constant may appear. Constant expressions are the same as expres- 
sions except that they may not contain variables or function designators. 


Integer constant expressions are defined in the same way with the exception that they do 
not have the operator '/'. They may be used in the specification of array, set, and subrange 


bounds. All operands of an integer constant expression must be of type INTEGER or LONGINT 
or a subrange thereof. 


5.10 REAL Type 


The type REAL may be used to represent real values with 6-7 decimal digits of precision. 
The range of absolute values which can be represented is about 1.0E-78 to 1.0E75. The 
default precision may be overridden by specifying the desired precision in decimal digits. 
This is done by enclosing the precision in parentheses after the symbol REAL. The maximum 
precision supported is 16 decimal digits. For example, 


REAL(12) 


will cause the compiler to allocate enough space for values of type REAL(12) so that 12 deci- 
mal digits of precision may be obtained. 


The following operators accept operands of type REAL (of any precision) and yield a real 
value (with precision equal to the maximum precision of the operands): 


* multiply 
/ divide 
+ unary plus or add 


negate or subtract 
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The syntax diagrams are as follows: 
Factor: 


UNSIGNED 
CONS TANT 
VARIABLE 
FUNCTION ay me 


IDENTIFIER 


Unsigned constant: 


INTEGER CONSTANT 


ceed CHARACTER F dll | | 
DECIMAL CONSTANT 


FIXED POINT CONSTANT 
BOOLEAN CONSTANT 
SCALAR IDENTIFIER 


Figure 5-1. Syntax Diagrams for Expressions (Sheet 1 of 2) 
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Simple expression: 


Boolean primary: 


SIMPLE 
EXPRESSION 


SIMPLE 
EXPRESSION 


Boolean factor: 


Expression: 


BOOLEAN 
TERM 


Figure 5-1. Syntax Diagrams for Expressions (Sheet 2 of 2) 
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The assignment operator may be used to assign a REAL value to a REAL variable. Also, the 
relational operators are defined for REAL operands just as for enumeration operands (see 
paragraph 2.2.1.1). 


Standard functions accepting a REAL argument and yielding a REAL result with precision 
the same as that of the argument: 


ABS(X) absolute value 
SQR(X) X squared 


Standard functions with REAL or INTEGER argument in which the REAL result has the same 
precision as that of the argument: 


SIN(X) Trignometric sine of X in radians 

COS(X) Trignometric cosine of X in radians 

ARCTAN(X) _ Trignometric inverse tangent in radians 

LN(X) Natural logarithm if X > 0; otherwise a runtime error occurs. 
EXP(X) Exponential function - 2.718281828 to the power X. 
SQRT(X) Square root if X >= 0; otherwise a runtime error occurs. 


Standard functions with a REAL argument yielding INTEGER results are: 


TRUNC(X) The result is the whole part of X, i.e., the fractional part of X is discarded. 


ROUND(X) The result is X rounded to the nearest integer, i.e., TRUNC(X + 0.5) 
if X>=0 or TRUNC(X - 0,5) if X < 0. 


Similar standard functions, LTRUNC and LROUND, yield a result of type LONGINT. 
The standard functions which permit conversion of arguments of type REAL are: 
DEC(P,Q,X) The result is the decimal value with precision (P,Q) (paragraph 5.12) 


corresponding to the REAL X. 
FLOAT(X,P) The result is the real value with precision P corresponding to the REAL X. 


FIX(P,Q,X) The result is the fixed-point value with precision (P,Q) (paragraph 5.11) 
corresponding to the REAL X. 


The syntax for real numbers is given in paragraph 3.2.2. Scientific notation is allowed with 

real constants in which case the letter E or Q is used to specify a power of 10 scale factor. — 
The letter E denotes the predefined default precision (32 bits) while the letter Q specifies 

the maximum precision available (64 bits). 


Examples: 


5E-3 
3.14159268Q0 
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5.11 FIXED Type 


FIXED types allow fractional values to be represented without using the generality of the 

real type representation. A value of type FIXED is a scaled binary number. Its precision con- 
sists of two parts: P and Q. P specifies the total number of binary digits which includes the 
fractional digits (but does not include the sign bit); Q is the scale factor which specifies the 
binary point alignment, i.e., the position of the binary point relative to the rightmost binary 
digit of the binary number. Precision is stated by two decimal integers P and Q, separated 

by a comma and enclosed in parentheses. P must be unsigned but Q may be signed. A posi- 
tive value for Q indicates the number of binary digits following the binary point; a negative 
value indicates the number of imaginary zero binary digits following the number and preceding 
the binary point. 


The maximum precision supported is 31 bits. 
Fixed point constants have the following syntax: 


<fixed-point constant> ::= <digits>. <digits> F | 
<digits> F | <binary digits>. <binary digits> B | 
<binary digits> B 


The following operators are defined for fixed point operands of (possibly) different precisions 
and yield a fixed point value whose precision depends on the operator. 


unary plus or add 
negate or subtract 
multiply 

divide 


“N 1+ 


The assignment operator may be used to assign a fixed point value to a fixed point variable, 
and a range check option is available to determine loss of most significant digits at runtime. 


Whenever an expression of type FIXED is assigned to a fixed point variable, the declared 
precision of the variable is maintained. The assigned item is aligned on the binary point. Leading 
zeros are inserted if the assigned item contains fewer integer digits than declared; trailing 

zeros are inserted if it contains fewer fractional digits. An error occurs (if the range check 
option is enabled) if the assigned item contains too many integer digits; truncation on the 

right occurs, with rounding, if it contains too many fractional digits. 


The relational operators (<, =, >, <=, <>, >=) are defined for fixed point operands and yield 
a Boolean value. 


Standard functions accepting a fixed point argument and yielding a fixed point result are: 


ABS(X) 


SQR(X) 
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Standard functions accepting a fixed point argument and yielding a real result are: 
SIN(X) 
COS(X) 
ARCTAN(X) 
LN(X) 
EXP(X) 
SQRT(X) 


The standard functions which permit conversion of arguments of type FIXED are: 


TRUNC(X) The result is X truncated to the nearest INTEGER, 
ROUND(X) The result is X rounded to the nearest INTEGER, 
FLOAT(X,P) The result is the real value with precision P corresponding to 


the fixed point X. 


DEC(P,Q,X) The result is the decimal value with precision (P,Q) corresponding 
to the fixed point X. 


FIX(P,Q,X) The result is the fixed point value with precision (P,Q) corres- 
ponding to the fixed point X. 


Examples: 


VAR X:_ _- FIXED(5, 4); 
Y:  FIXED(5, -2) 


X:=1.011B; -Y := 11001008 


Boe oe ERE Ea 
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5.12 DECIMAL Type 


DECIMAL types are suitable for applications requiring that operations be performed using deci- 


mal arithmetic. A decimal type represents a value of the standard type DECIMAL. The syntax 
is: 


<decimal constant> ::= <digits>. <digits> D | <digits> D 


DECIMAL types allow fractional decimal values to be represented without converting them 

to real type representation. A value of type DECIMAL is a scaled decimal number. Its precision 
consists of two parts; P and Q. P specifies the total number of decimal digits which includes 
the fractional digits; Q is the scale factor which specifies the decimal point alignment, i.e., 

the position of the decimal point relative to the rightmost digit of the decimal number. Precision 
is stated by two decimal integers P and Q, separated by a comma and enclosed in parenthe- 
ses. P must be unsigned but Q may be signed. 


The maximurn precision is 15 decimal digits. 


The following operators are defined for decimal operands of (possibly) different precisions 
and yield a decimal value whose precision depends on the operator. 


unary plus or add 
negate or subtract 
multiply 

divide 


N 1+ 


The assignment operator may be used to assign a decimal value to a decimal variable, and 
a range check option is available to determine loss of most significant digits at runtime. 


Whenever an expression of type DECIMAL is assigned to a decimal variable, the declared 
precision of the variable is maintained. The assigned item is aligned on the decimal point. 
Leading zeros are inserted if the assigned item contains fewer integer digits than declared; 
trailing zeros are inserted if it contains fewer fractional digits. An error occurs if the assigned 


item contains too many digits and the range check option is enabled; truncation on the right 


occurs if it contains too many fractional digits. An option may be enabled to cause rounding 
in addition to truncation. 


The relational operators (<, =, >, <=, <>, >=) are defined for decimal operands and yield 
a Boolean value. 


Standard functions accepting a decimal argument and yielding a decimal result are: 
ABS(X) 
SQR(X) 
Standard functions accepting a decimal argument and yielding a real result are: 
SIN(X) 
COS(X) 
ARCTAN(X) 
LN(X) 
EXP(X) 


SQRT(X) 
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The standard functions which permit conversion of arguments of type DECIMAL are: 


TRUNC(X) The result is X truncated to the nearest INTEGER. 
ROUND(X) The result is X rounded to the nearest INTEGER. 
FLOAT(X,P) The result is the real value with precision P corresponding to 


the decimal X. 


DEC(P,Q,X) The result is the decimal value with precision (P,Q) corresponding 
to the decimal X. 


FIX(P,Q,X) The result is the fixed-point value with precision (P,Q) corres- 
ponding to the decimal X. 


The following examples show several DECIMAL data types together with the corresponding 
COBOL declarations of precision (note that the internal representation of Pascal and COBOL 
numbers are different). 


PASCAL COBOL MAXIMUM VALUE SMALLEST INCREMENT 
DECIMAL (4,0) PICTURE S9(4) 9,999. 1. 
DECIMAL (8,2) PICTURE S9(6)V99 999,999.99 -01 
DECIMAL (5,-3) PICTURE S9(5)P(3) 99,999,000. 1000 


DECIMAL (4,-6) PICTURE SVPP9999 0.009999 -000001 
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6 STRUCTURED DATA TYPES 


6.1 Array Type 


An array consists of a fixed number of components which are all of the same type, called 
the component type. Components of the array are designated by specifying their relative 
positions in the array, using expressions of the index type. An ARRAY type has the following 
syntax? 


<array type> i= 
ARRAY "[" <index type> ', <index type> ; "]" OF <component type> 


<index type> ::= <static index type> | <dynamic index type> 
<static index type> ::= <enumeration type> | <type identifier> 
<dynamic index type> ::= <manifest constant> . . <dynamic upper bound> 


<dynamic upper bound> ::= <entire variable> 
| UB( <dynamic array variable>[ , <manifest constant>] ) 


<entire variable> ::= <identifier> 
The syntax diagrams are as follows: 


Array type: 


MANIFEST DYNAMIC 
CONS TANT UPPER 


BOUND 
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The <component type> may be any type, simple or structured, except that it may not be 
FILE. In particular, <component type> may itself be an ARRAY type. The number of <index 
types> in the declaration determines the dimension of the array. There is no limit to the number 
of dimensions which an array may have. Each <index type> must be an enumeration type: 
INTEGER, LONGINT, BOOLEAN, CHAR, subrange, or scalar. 
Examples of one-dimensional arrays: 

(* RECALL TYPE WORKDAY = MON. . FRI *) 

LATEDAYS = ARRAYL WORKDAY ] OF BOOLEAN; (*LENGTH 5*) 

LIST = ARRAY[ '0'.. '9'] OF LATEDAYS; (*LENGTH 10*) 

TRANSLATE = ARRAY[ CHAR ] OF CHAR (*LENGTH 256*) 
TWO DIMENSIONAL ARRAY: 

TYPE TABLE = ARRAY[ 0.. 10, -50.. 50] OF INTEGER; 


Arrays with two or more dimensions are called multidimensional arrays, These may be described 
in terms of one-dimensional arrays because the type i) 


A1 = ARRAY[ T1, T2,..., Tn ] OF <type> 
is equivalent to 

A1 = ARRAYL T1] OF ARRAY[ T2] OF... OF ARRAY[ Tn ] OF <type> 
Another way of expressing exactly the same type is: 

TYPE An = ARRAY[ Tn ] OF <type>; 


A2 = ARRAY[ T2 ] OF A3; 
A1 = ARRAYL T1] OF A2 


(Note that the order of these declarations is important.) 

For another example, consider the following equivalent definitions of the type PAGES: 
TYPE PAGES = ARRAY[ 1... 66, 1. .80 ] OF CHAR 
TYPE PAGES = ARRAY[ 1.. 66] OF ARRAY[ 1. .80 ] OF CHAR 


TYPE LINE = ARRAY[ 1... 80] OF CHAR; 
PAGES= ARRAYI 1... 66] OF LINE 


Therefore, even if PAGES is declared as a two-dimensional array of characters, it can be 
treated as a one-dimensional array of LINEs, where each LINE is a one-dimensional array 
of characters. 


A particular element of a one-dimensional array is denoted by writing the array identifier 
followed by a bracketed expression of a type compatible with the index: 


<identifier> [ <expression> ] 
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The expression is called an index or a subscript. If the index type is a subrange, the value 
of the expression must fall within this subrange. A compiler option is available which may 
be used to generate runtime checks for array indices out of bounds. 


Just as there are several equivalent ways to declare a multidimensional array, there are se- 
veral equivalent ways to access components of a multidimensional array. Given the array 
PAGES declared above: 


PAGES[ 14 ] denotes the 14th line of the array, i.e., the one-dimensional array of 
characters which is the 14th component of PAGES. 


PAGES[ 5, 21] denotes the 21st character of the 5th line. 
PAGES[ 5 ][ 21] also denotes the 21st character of the 5th line. 
Operators: 
The basic operator between array operands of compatible type is assignment (:=). (See para- 
graph 6.7 for packed arrays and additional operators which apply to packed arrays of charac 
ters.) For example, given any of the declaration of PAGES above and the declaration 

VAR CARD : ARRAY[ 1.. 80] OF CHAR 


the following are legal: 


PAGES[ 12,8] :='M'; 
PAGES[ 36] := CARD; 


The standard function which applies to an array argument is: 

UB(A, D) the result is the upper bound of the Dth dimension of the array A. 
UB(A) the same as UB(A, 1) 

D must be an integer constant. 

For example, UB(PAGES, 2) = 80, and UB(PAGES) = 66. The type of the result is the same 


as the Dth index type. Dimensions are numbered left to right, starting with 1. As another ex- 
ample, UB(LATEDAYS) = FRI (recall the first example in this section). 


6.1.1 Array Procedures 


Standard procedures for arrays (see paragraph 6.7 for a discussion of packed arrays): 


PACK(A, I, Z) means FOR J:= UTOVDO 
Z[ J] z= AL J-U+! J 


UNPACK(Z, A, 1) means FOR J := UTO VDO 
A[ J-U+I ] s= Z[ J] 


where 
A is a variable of type ARRAY[ M. .N] OF T1, 
Z is a variable of type PACKED ARRAY[ U. .V] OF T2, 
T1 and T2 are compatible types, and (N-M) >= (V-U) 


UNPACK allows a packed array to be unpacked so its components may be efficiently accessed. 
PACK allows an unpacked array to be packed. 
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6.1.2 Static and Dynamic Arrays 


The number of components in an array Is fixed, and in each of the previous examples this 
number has been fixed at compile time. Arrays of this sort are said to be static. It is also pos- 
sible to fix the number of components at runtime in Pascal, and arrays of this sort are called 
dynamic. Arrays are specified to be dynamic by means of dynamic index types. The number 
of components of a dynamic array is determined upon entry to the block (program or routine) 
containing the array type declaration. (See Section 8 for a discussion of routines.) For multi- 
dimensional arrays, if at least one index type is a dynamic index type, then the array is dyna- 
mic. Only the upper bound of a dynamic index type may be specified at runtime. The lower 
bound must be a manifest constant, which is fixed at compile-time. The upper bound may 

be an entire variable (not a component of an array or record and not a referenced variable), 
or the upper bound may be specified by means of the UB function applied to an argument 
which is an array variable. An entire variable appearing as dynamic upper bound must be 
either a nonlocal variable or a formal procedure parameter. (Also, See paragraph 8.5.2 for 

an example of dynamic array parameters.) 


Examples of Dynamic Arrays: 
TYPE VEC = ARRAYI[ 1. NJ OF INTEGER; 


TABLE = ARRAYI 0. . UB(VEC) ] OF REAL 
BOOK = ARRAY[ 1..N, 1.. 54, 1. .60] OF CHAR 


6.2 Record Type 
The record type declaration defines a record. In Pascal, a record may have a fixed part, 
a fixed part and a variant part, or a variant part alone. 
6.2.1 Records 
A record consists of a number of components of possibly different type called fields. Each 
field must be given a distinct name, called the field identifier, which is used to reference the 
individual component, and a type must be specified for each field. A field may be in the fixed 
part of the record variable, or it may be in the variant part. The variant part of a record is 
a list of alternative forms which the field may take, A record may have a fixed part, a variant 
part, or both, but the variant part must be last if it appears. 
Syntax: 
<record type> ::= RECORD <field list> END 
<field list> ::= <fixed part> | <fixed part> ; <variant part> | <variant part> 
<fixed part> ::= <record section> f <record section>} 
<record section> ::= [ <field identifier> | , <field identifier> t: <type>] 
<variant part> ::= CASE <tag field> <type identifier> OF <variant> } : <variant>| 
<variant> s:= [ <case label list> : (<field list>) ] 
<case label list> ::= <case label> s <case label>} 


<case label> ::= <manifest constant> | <manifest constant>. .<manifest constant> 


<tag field> ::= [ <identifier> : ] 
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The syntax diagrams are as follows: 


Record type: 


Field list: 


j FIXED PART - OO VARIANT PART 5 


Fixed part: 


j IDENTIFIER | 


Variant part: 


VARIANT 


}woewririen Fat: ) 


TYPE IDENTIFIER 


Variant: 


MANIFEST 
CONSTANT 


e + MANIFEST ; 
CONSTANT 
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The type of a field may not be a dynamic array, dynamic set, or file. The assignment operator 
(:=) applies to operands which are compatible records. (Type compatibility is discussed in 
paragraph 6.8.) No other operator applies to records. 
Examples: 
TYPE COMPLEX = RECORD RE, IM : REAL END; 
DATA = RECORD 
MONTH : (JAN, FEB, MAR, APR, MAY, JUN, 
JUL, AUG, SEP, OCT, NOV, DEC); 
DAY 2 Vsca 1s 
YEAR : INTEGER 
END 


A component of a record is referenced by the record identifier followed by a period followed 
by the appropriate field identifier: 


<record variable>.<field identifier> 
Examples: 


VAR X, Y, Z : COMPLEX: 
START, FINISH : DATE; 


START.DAY t= 11; 
START.MONTH := APR; 


Multiplication of complex numbers: 


Z.RE := X.RE * Y.RE - X.IM * Y.IM; 
Z.IM := X.RE * Y.IM + X.IM * Y.RE; 


The assignment statement 
Y v= 
is equivalent to 


Y.RE = X.RE; 
Y.IM t= X.IM 


An array of records could be defined as: 
VAR CPLX : ARRAY[ 1..N] OF COMPLEX 
Typical assignments might be: 


CPLX[1] := Z; 
CPLX[1].RE := Z.RE 
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A record containing an array could be defined as: 


VAR REC : RECORD 

KEY : 1... 3; 

CODE : ARRAY[ 1.. 3] OF CHAR 
END: 


Usage: 


REC.KEY := N; 
REC.CODE[ NJ := 'X'; 
REC.CODE[ REC.KEY ] := 'T'; 


6.2.2 Variants 


In some situations it is convenient to have a record type which allows individual records to 
have some differences in their structure. For example, an employee record for college gra- 
duates might contain certain information which is not needed in records for noncollege gra- 
duates. The variant part of a Pascal record provides this capability with a form similar to a 


CASE statement in which a selector or tag field can be used to indicate the variant which 
is currently used. 


Example: 


TYPE ED. = (HS, COLLEGE); 
VAR EMPLOYEE : RECORD 
NAME — : STRING; 
ID : INTEGER; 
STATUS: (EXEMPT, NONEXEMPT); 
CASE EDUCATION : ED OF 
HS : (SPECIALTY : ARRAY[ 1.. 20] OF CHAR; 
GPA : REAL); 
COLLEGE : (CODE : INTEGER; 
DEGREE : (BS, MS, PHD, NONE); 
AVE : REAL) 
END 


This record contains four fixed fields: NAME, ID, STATUS, and EDUCATION, and a variant 
part of either the two fields SPECIALTY and GPA or the three fields CODE, DEGREE, and 
AVE. The EDUCATION field is the tag field. Note that both variants have a real field repre- 
senting the grade point average (GPA and AVE). Different names must be used for these, 
since all field identifiers must be distinct at a given level. Actually, since this field is common 
to all variants, it should be moved to the fixed part of the record. 


The tag field need not be included, so that the field identifier EDUCATION and the colon that 
follows could be omitted in the previous example. However, the type of the tag must be spe- 
cified. Also, each case label must be a unique nonnegative enumeration constant or integer 
constant expression of the same type as the tag field, and the case labels must be disjoint. 


The tag type specification merely determines the type which is used to label the variants. 
Which variant is selected is actually determined by the field identifier which is used, which 


explains why the tag field may be omitted and why all field identifiers at a given level, even 
in the variant part, must be distinct. 
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A compiler option is available, however, to check at runtime that the value of the tag field, 
if present, corresponds with the variant which is selected. 
Example: 

EMPLOYEE.ID 

EMPLOYEE.EDUCATION 

EMPLOYEE.GPA 

EMPLOYEE.DEGREE 
6.3 WITH Statement 
Repeated references to components of the same record can be considerably simplified by 
using the WITH statement. The record is specified at the beginning of the WITH statement, 
and within the scope of the WITH statement the record's component can be denoted by the 
field identifiers alone, with the record identifier omitted. The syntax is: 

<with statement> ::= WITH <with variable list> DO <statement> 

<with variable list> ::= <with variable> } , <with variable> 


<with variable> ::= <record variable> | <identifier> = <record variable> 


WITH statement: 


Example: 
(* ASSUME VAR STARTDATE : DATE *) 


WITH STARTDATE DO 
BEGIN MONTH := MAY; 
DAY := 16; 
YEAR := 1977 
END 


This has the same effect as: 


STARTDATE.MONTH := MAY; 
STARTDATE.DAY := 16; 
STARTDATE.YEAR i= 1977 


Another example is: 


(* ASSUME VAR MEMBER : ARRAYI 1.. 80] OF EMPLOYEE *) 
(* EMPLOYEE DEFINED AS BEFORE *) 
WITH MEMBER [1] DO... 
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Nested WITH statements may be abbreviated as 
WITH R1, R2, .., Rn DO <statement> 
which is equivalent to 


WITH R1 DO 
WITH R2 DO 


WITH Rn DO <statement> 


The normal scope rules (described in detail in paragraph 8.7) apply, so that a WITH variable 
may be redefined in nested WITH statements, The innermost definition is the one which applies. 


Example: 
(* ASSUME STARTDATE, ENDATE : DATE *) 
WITH STARTDATE, ENDATE DO 
MONTH := MAY 
assigns MAY to ENDATE.MONTH. 


Another form of the MTH statement allows synonyms to be defined for the record variables, 
as illustrated by the following example: 


(* ASSUME VAR A: ARRAY[ 1..5] OF DATE,!= 1, J = 2, K = 3*) 


WITH X= AL 1],C=ALJU],ALK] DO 


BEGIN 
C:=X; (* COPY RECORD A[ 1] TO A[ 2]*) 
| sx 25 
K se 53 
X.YEAR := 1975; (* ASSIGN 1975 TO A[ 1]. YEAR *) 
MONTH := JUN (* ASSIGN JUN TO A[ 3]. MONTH *) 
END 


Record variables are bound prior to execution of the qualified statement, so that in the above 
example, X always denotes record A[ 1] within the WITH statement, since | had the value 1 
when the WITH statement was executed. Assigning 2 to | within the WITH statement does 

not affect the denotation of X. 


The identifiers X and C are implicitly declared and their scope is the WITH statement in which 
they appear. This means that any identifier X or C which exists outside the WITH statement 
is not accessible inside the WITH statement. An exception to this is identifiers which denote 
fields of record types. For example, if the record A[ |] above had a field denoted by X, then 
within the WITH statement X. X would denote this field. 


Besides being a convenient shorthand notation, WITH statements allow the compiler to do 
a certain amount of optimization when several components of a record are accessed. 
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6.4 SET Type 


A SET type is used to define variables whose values are sets. A SET type specifies a base 
type, and a value of the SET type is then any subset of values from the base type. The syntax 
for the SET type is: 

<set type> ::= SET OF <base type> 

<base type> ::= <static base type> | <dynamic base type> 

<static base type> ::= <enumeration type> | <type identifier> 


<dynamic base type> ::= <manifest constant>. .<dynamic bound> 


<dynamic bound> ::= <entire variable> 
| UB(<dynamic set variable>) 


<entire variable> ::= <identifier> 
The syntax diagrams are as follows: 


Set type: 


ENUMERATION TYPE 


MANIFEST CONSTANT 


DYNAMIC BOUND 


Dynamic Bound: 


The base type is any enumeration type. Each SET type includes the set of no elements, called 
the empty set. The lower bound X of the base type must have an ordinal greater than or 

equal to 0, and the largest element Y must have an ordinal less than 1023. For sets of integers, 
only values from 0 to 1023 are allowed. 


Examples: 


TYPE BYTE = SET OF O.. 7; 
CHARSET = SET OF CHAR; 
COLOR = SET OF PRIMARY; 
ERRORSET = SET OF (OVERFLOW, BUSY, EOFILE) 
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Set values are represented by set constructors, which are a list of set elements (i.e., of expres- 


sions of some base type) separated by commas and enclosed by the set brackets [and]. 
The empty set can be denoted by []. Subranges may be used in constructing set values. 
For example, [ M..N ] denotes the set of values from M to N, and if N > M, this is the empty 


set. 


The standard function accepting an argument of type SET is UB(S), which gives the largest 
value in the base type of the set S. The type of the result is the same as the base type of S, 


The following operators apply between operands that are compatible sets (or set and set 


member in the case of IN): 


+ set union (inclusive OR) 
- set difference 

* set intersection (AND) 
<= set inclusion (contained in) 
>= set inclusion (contains) 
< proper set inclusion 

> proper set inclusion 

= set equality 

<> set inequality 

IN set membership 

:= assignment 


set of elements present in either A or B 
set of elements in A and not in B 

set of elements in both A and B 

all elements of A are present in B 

all elements of B are present in A 

all elements of A are present in B but 
not all elements of B are present in A 
all elements of B are present in A but 
not all elements of A are present in B 
A and B contain the same elements 
A and B contain different elements 


The relationships shown in the right column apply when A is the operand that precedes the 
operator and B is the operand that follows the operator. 


A set is represented internally by a bit string or characteristic vector in which each element 
of the base type is associated with one bit. Elements that are in the set correspond to ones 


in the bit string. 


Examples: 
[1,3,2] +{2,6,3] «f 1,2;3,6) 
[1,3,2] *[2,6,3] ={2,3] 
[1,3,2] -[2,6,3] =[1] 
[1,2,3] <=[1,2,3] - TRUE 
(1,2,3] <[1,2,3] ~ FALSE 
[1,2] <[1,2,3] - TRUE 
TYPE DAYS = (MON, TUE, WED, THUR, FRI, SAT, SUN); 
VAR DAY : DAYS; 


WEEK, WORK, WEEKEND : SET OF DAYS; 


WORK :=[ MON. .FRI]; 
WEEKEND :=[ SAT, SUN J; 

WEEK := WORK +[ SAT, SUN]; 
WEEKEND := WEEK - WORK; 

IF WORK *[ TUE] =[] THEN... 
IF DAY IN WEEKEND THEN .... 

IF WORK <= WEEK THEN .... 
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Given appropriate declarations for ERR, CURRENTERRS, FATALERRS: 


IF ERR IN FATALERRS THEN WRITELN(* FATAL ERROR "); 
CURRENTERRS := CURRENTERRS +[ ERR]; 
IF CURRENTERRS <= FATALERRS THEN 

WRITELN(" ALL ACTIVE ERROR CONDITIONS ARE halted. 
IF CURRENTERRS >= FATALERRS THEN 

WRITELN(' EVERY FATAL ERROR CONDITION IS ACTIVE") 


A set may be defined by a static base type, in which case the number of elements is determined 


at compile times or the set may be defined by a dynamic base type, in which case the number 
of elements is determined upon entry to the block containing the set type declaration. Just 


as for dynamic arrays, the lower bound of a dynamic set is fixed. It must be a manifest constant, 


that is, an enumeration constant or an integer constant expression which can be evaluated 
at compile time. The upper bound may be a variable or it may be the UB function applied 
to an argument which is a dynamic set variable. 


Examples: 


TYPE SETA = SET OF 0..N; 
SETB = SET OF 128, . UB(SETA) 


6.5 FILE Type 


A FILE type specifies a structure consisting of a sequence of components which are all of 
the same type, and may be either sequential or random. In addition, a textfile is a special 
kind of sequential file of type CHAR which is divided into lines by end of line markers. (A 
file of type FILE OF CHAR is not substructured into lines, and hence is not equivalent to a 
textfile.) The number of components, called the length of the file, is not fixed and may grow 
to any size, limited only by the storage medium with which the file is associated. 


On TAXO, files are written to the disk. The 1/O procedures and functions create files automa- 
tically using default values when they do not already exist. Alternatively, the user may create 


files using TAXO File Management commands prior to executing a Pascal program, When 
parameters other than the defaults are required, the user must create the files. 


The syntax of FILE type is: 
<file type> ::= [RANDOM ] FILE OF <type> | TEXT 


The syntax diagram is as follows: 


File type: 
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The component type may not be a pointer or file type or contain pointers or files. Any other 
type is legal as a component of a file. 


The characteristic feature of a sequential file is that its components are accessible only by 
progressing sequentially through the file. 


The prefix RANDOM specifies a random file in which components are accessible by their com- 
ponent number, which is defined by the natural ordering of the sequence of components. 
The first component is number zero. 


Examples: 
TYPE INFILE = FILE OF INTEGER; 
OUTFIL = RANDOM FILE OF LONGINT; 
MSG = TEXT; 


The predefined textfiles INPUT and OUTPUT represent the standard I/O media of a computer 
installation (such as the terminal keyboard and line printer). 


Files are accessed by means of READ procedure statements, and are written to by means 

of WRITE procedure statements. In addition, READLN and WRITELN statements apply to text- 
files, Before writing to a file, it is necessary to execute a REWRITE statement which erases 
any previous components of the file and opens it for writing. (A REWRITE is done automati- 
cally on the standard textfile OUTPUT.) 


Before values may be read from a file, it is necessary to execute a RESET statement which 
positions to the beginning of the file and opens it for reading. READ returns the next value 
from the file. For a sequential file, reading may proceed until the last component is read. 
Then the sequential file is in the end-of-file state which is indicated by the standard Boolean 
function EOF returning a value TRUE when applied to the file identifier. For RANDOM files, 
EOF is true when a nonexistent component is read. 


Sequential files may be opened for reading or writing but not both simultaneously. A RANDOM 
file is simultaneously opened for reading or writing by either a REWRITE or EXTEND. 


1/O errors may cause program termination (the default) or be handled by the program; which 
action to take is set by the routine IOTERM. The status of the last |/O operation on a specified 
file may be determined by the function STATUS, 


A file may be associated at execution time with a particular operating system file or device 

by the procedures SETNAME and SETMEMBER, These routines may only be called when a 

file is in an inactive (closed) state. A file is placed in the closed state by the routine CLOSE. 
By default, a file is placed in the closed state when control returns to another block from 

the block in which the file is declared. Once a file is closed, it may be reopened by the proce- 
dure EXTEND, RESET, or REWRITE. 


The following procedures and functions may be applied to any file F: 


EXTEND(F) For a sequential file or a textfile, open F for output and 
position it to write the first component. The first compo- 
nent is written as the successor of the last component 
of the last logical file of the file. For a random file, open 
F for both input and output. 


RESET(F) 


REWRITE(F) 


CLOSE(F) 


SETNAME(F,NAME) 


SETMEMBER 
(F,LIBNAME,MEMBER) 


SETLUNO (F,LUNO) 


STATUS(F) 


JOTERM(F,OVAL,NVAL) 


EOF(F) 


6.5.1 Sequential Files 
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Open the file F for input and position to read its first 
component. For a sequential file, if the file is not empty, 
EOF(F) becomes FALSE; otherwise it becomes TRUE. 


For a sequential file, make the file empty and open it 
for output. EOF(F) becomes true. For a random file, make 
the file empty and open it for both input and output. 


Place the file F in a closed state; if F is a sequential 
file that is open for output, write an end-of-file before 
closing. 


Associate file F with the external file specified by NAME 
which is of type PACKED ARRAY[ 1..8] OF CHAR. 
NAME may not be the textfile OUTPUT. 


Associate the file F with the MEMBER of library LIBNAME, 
both of which are of type PACKED ARRAY [ 1..8] 

of CHAR. LIBNAME is a library synonym and may not 

be the textfile OUTPUT, 


Associate file F with logical unit number LUNO. 


Returns a value of type INTEGER that Indicates the status 
of the last |/O operation on file F. If the operation was 
successful, 0 is returned; otherwise the result is an integer 
value that indicates the reason for the operation's failure. 
These values are listed in paragraph 6.5.7. 


Save the old value of the I/O error flag associated with 
the file F in OVAL and set the I/O error flag to the new 
value, NVAL. OVAL and NVAL are of type BOOLEAN, 
and OVAL must be a variable. If the |/O error flag is 
TRUE, the occurrence of an error will cause program 
termination; otherwise control returns as normal and 
the functicn STATUS must be used to determine the 
kind of error which has been encountered. 


For a sequential or textfile F, the result is TRUE if the 

file is not open for input or is in the end-of-file or end-of- 
medium state. For a random file F, the result is TRUE 

if the last read attempted to access a nonexistent record. 
Otherwise, the result is FALSE. 


In the following, let F be a sequential file, and V denote a variable compatibie with the compo- 
nent type of F. The file F may contain components of any type except FILE, POINTER, or 
ARRAY and RECORD whose component types contain a FILE or POINTER type. 


READ(F,V) 


Assign the next component of the file F to the variable 

V. (The variables may be components of a PACKED array 
or record structure with an effect the same as that of 

an assignment statement.) If F is positioned at the end-of- 


file mark, nothing is read, the positioning of F is not altered, 


an¢ an error exception occurs. (To skip past an end-of-file 
mai, SKIPFILES must be called.) 
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WRITE(F,E) Write the expression E as the next component of the 
file F. 


NOTE 


When reading or writing, it is possible to list more than one parameter in the READ 

or WRITE statement. The forms for reading or writing multiple values in one statement 
(along with other abbreviations) are explained in paragraph 6.5.6. These forms are 
easily understood if the basic read and write operations with one parameter are studied 


first. 
WRITEEOF(F) Write an end-of-file mark on the file F which is open 
for writing. 
SKIPFILES(F ,NFILE) Skip the number, NFILE, of file marks on the file F which 


is open for input. If NFILE, of type INTEGER, is negative, 
the skip is in the "backward" direction; if NFILE is zero, 
the file is positioned to the beginning of the current logi- 
cal file; if NFILE is positive, the skip is in the forward 
direction. The file is positioned at the start of a logical 

file. An attempt to position to a nonexistent file will cause 
an error. If EOF is TRUE following a skip, then end-of-me- 
dium has been reached, 


A file position is associated with each sequential file which is RESET and divides the file into 


a part which has already been read and a part which remains to be read. The position is indi- 
cated by means of a diagram in which each rectangle represents a component value: 


(a ae be ie lee 


The symbol is used to mark the current position, in the file. The end of the file is indicated 
by the symbol eof. 


Examples: 
Given the declarations 


VAR |: INTEGER; 
F ; FILE OF INTEGER; 


The file F may be at the position: 


BC Ree ee 
READ(F, I) results in 
Sr a 


At this point, | has the value 37 and EOF(F) is FALSE. Another READ(F, 1) yields: 


poe Toss Tos Toe Tie J coe | 


2 37 
+ 
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Now | has the value 18 and EOF(F) is TRUE. An attempt to READ F at this point will result 
in an error, 


Example: 


CONST .-N = 100; 
TYPE REC = RECORD 
NAME : PACKED ARRAY[ 1. . 10 ] OF CHAR; 
SSAN : INTEGER 
END; 
VAR R : REC; 
LIST ; FILE OF REC; 


BEGIN 
REWRITE(LIST); 
RESET(INPUT); 
FOR I:= 1TONDO 
BEGIN 
sis (* BUILD RECORD R FROM INPUT DATA *) 
WRITE(LIST, R) 

END; | 
RESET(LIST); | (* REWIND LIST *) 
WHILE NOT EOF(LIST) DO 

BEGIN 

READ(LIST, R) 


END 


END. 


6.5.2 Textfiles 


Input and output on many devices, including card punches and readers, line printers, CRT 
terminals, etc., is in the form of characters. The physical properties of these devices naturally 
divide files of characters into lines. A file of characters which is divided logically into lines 

by end-of-line markers is called a textfile. 


In the Model TA1600/30 computer there is no explicit end-of-line character. The last non- | 
blank character (within the logical record length specified when the file was created) is the 
last character by implication, and the blank following that character is the end-of-line cha- 
racter, 


Values are written to a textfile a line at a time. It may be helpful to imagine that a line buffer 
temporarily stores the character representations of values specified by WRITE statements. 

A WRITELN statement causes the current line buffer to be added to the textfile and the line 
buffer to be cleared. On input, a READLN obtains the next line from the file and moves it 

to the line buffer. The line buffer is intended to help conceptualize |/O on textfiles and does 
not necessarily reflect the implementation. 


An implementation may delete some of the trailing blanks on a line, but never all if the line | 
is blank. When the last character of a line is read the standard function EOLN yields the value 
TRUE. Reading the next character (i.e., the end-of-line marker) causes EOLN to yield the 
value FALSE and a blank to be read. 
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Let F be a textfile and X be of type CHAR, INTEGER, LONGINT, BOOLEAN, REAL, FIXED, 
DECIMAL, or string. Refer to paragraph 6.5.3 for the default field widths for printing values 
of each of these types. The procedures for unformatted reading and writing of the textfile 


F are as follows: 


WRITE(F,X) 


READ(F,X) 


RESET(F) 


REWRITE(F) 


WRITELN(F) 


READLN(F) 


EOLN(F) 


COLUMN(F) 


PAGE(F) 


When F is a textfile, WRITE does not add the value of X directly 
to F. Instead, the value is written to a line buffer. Multiple WRITE 
statements may add values to the line buffer, and the line buffer 
is not written to F until a WRITELN is executed. 


Returns the next value in the textfile F. If EOLN(F) is TRUE 

and X is of type CHAR, a blank is read, which need not corres- 
pond to an actual character from the file but rather represents 
an "end-of-line" value. If a READ is performed and EOLN is 
TRUE, a READLN is performed to move the next line into the 
line buffer, and EOLN(F) becomes FALSE. (The variable X may 
be a component of a packed structure with the read having 
the same effect as that of an assignment statement.) 


A textfile must be reset just as any other file, before it may 
be read, RESET opens the file, positions to the beginning of 
the file, and reads the first record into the line buffer, RESET 
may not be applied to the standard file OUTPUT. 


A REWRITE or EXTEND must be executed on texifiles before 

a WRITE may be performed. The only exception is that by default, 
a REWRITE is performed on the file OUTPUT. REWRITE may 

not be applied to the standard file INPUT. EXTEND may not 

be applied to the standard file OUTPUT. 


Output the current contents of the line buffer, followed by an 
end-of-line, to the textfile F. Then clear the line buffer. 


Move the next line of the textfile F into the line buffer. If there 
are no more lines in F, EOF(F) becomes TRUE. If EOF(F) is al- 
ready TRUE, an error occurs. 


TRUE when the last character on the current line of textfile F 
has been read. 


Provides the column index (based at 1) at which the next 
character on a textfile will be read or written. 


Causes a skip to the top of a new page when the textfile F 
is printed. 
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Example of textfile read operations: 
VAR CH : CHAR; 


Suppose the INPUT file consists of the three lines 


At this point, EOLN(INPUT and EOF(OUTPUT) are both FALSE. 


READ(INPUT, CH) yields 


The first character has been assigned to CH. Successive READ statements eventually result 
in the file position being at the end of the first line: 
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Now EOLN(INPUT) is TRUE and EOF(INPUT) is still FALSE. READ(INPUT, CH) results in CH 


.- ="'', EOLN(INPUT) = FALSE, EOF(INPUT) = FALSE and the file position is: 


etiam | 
{ 

EOLN | 
| Jd 
saa igt age : 
EOLN ,; 
si aioe ta ON 
i] 


From this position, if a READLN(INPUT) is executed, the position would be at the beginning 
of the next line. 


at which point EOLN(INPUT) is TRUE and EOF(INPUT) is FALSE. 


Another READ(INPUT, CH) results in 
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and now CH = '', EOLN(INPUT) = FALSE, and EOF(INPUT) = TRUE. Note that when the end 
of a textfile is reached, first EOLN is TRUE, and then the next READ makes EOLN FALSE 
and EOF TRUE. If a textfile originates from a card deck, each end-of-line corresponds to 
the end of a card, and if it originates from the keyboard of a remote terminal, end of line 
occurs when a line of text is transmitted, for example, when the RETURN key is depressed. 
Trailing blanks on a line may be suppressed, so the last character before the end of line is 
always nonblank, 


NOTE 


PASCAL does not assume that coilumn one of a file is for printer carriage control, as 
is done in some languages such as Fortran, 


6.5.3 Formatted I/O With Textfiles 


It is frequently convenient to be able to read or write data types other than characters to 

or from a textfile. For example, numerical values are frequently entered from a device such . 
as a card reader which must be associated with a textfile. The types which may be read 

from or written to a textfile are CHAR, INTEGER, LONGINT, BOOLEAN, REAL, DECIMAL, FIXED, 
or string. For each of the types other than CHAR, an implicit data conversion to or from CHAR 
is performed. In a READ procedure statement of the form 


READ(F,Q) 
if the file F is a textfile then the read-parameter Q may have the following forms: 


V (unformatted) 
V:W (formatted) 


V is a variable to be assigned the value read and must be one of the following allowable types: 
CHAR, INTEGER, LONGINT, BOOLEAN, REAL, FIXED, DECIMAL, or string. The value to be 
read may not be split across two logical records, 


W is the field width, which must be an integer expression greater than zero. If W is less than 
zero, the effect is the same as for an unformatted read. V will be read from the next W columns 
starting with the current file component. The next file component to be read starts with the 
character immediately following the field. The value to be read may occur anywhere within 

the specified field. In a formatted read, if EOLN is initially TRUE or the end-of-line mark is 
reached before W columns have been read, the value accumulated thus far is read. A formatted 
read never skips past the end-of-line mark. The progression past an end-of-line mark requires 
an explicit READLN or an unformatted read (which can read an end-of-line mark as a blank). 


- If Vis of type INTEGER or LONGINT, then the value to be read may be a hexadecimal 
number. Then either the hexadecimal number is prefixed by a "#" character in the 
textfile, or the read-parameters have the form: 


V HEX 
Vv: W HEX 


i If Vis a variable of type CHAR, then V is assigned the next component (a character) 
if no field width is specified. If a field width is specified, the first nonblank character 
is read and the remaining characters are ignored. If the entire field is blank spaces, 
the character read is a blank, 
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- If Vis a variable of type INTEGER (or subrange thereof), LONGINT, or REAL, then READ 


(H,V) implies reading from H a sequence of characters which form an integer or real 
constant, respectively, according to the syntax of the language and the assignment 
of that constant to V. Preceding blanks and end-of-line markers are skipped, In a 
formatted read, if the field is blank, the value read is Zero. 


o lf Vis a variable of type BOOLEAN, then the character T or F is read, or the standard 
identifier TRUE or FALSE is read. 


° If V is a variable of type FIXED or DECIMAL, then READ(H,V) implies reading from H 
a sequence of characters which form a fixed-point or decimal constant (respectively) 
according to the syntax of the language except that the sequence need not end in 
an F or D. If the fixed-point constant is in binary form, then the sequence must end 
with a B. In a formatted read, if the field is blank, the value read is Zero. 


: If V is a variable of type string with length L, then the next L characters are read. 
In a formatted read, if W>L then the rightmost L characters are read; if W<L then 
the string is padded on the right with blanks. 


In a WRITE procedure statement of the form 
WRITE(F,P) 

where F is a textfile, the write-parameter P may have the following forms: 
E (unformatted) 


E:M (formatted) 
E:M:N (formatted fixed point) 


E is the expression that represents the value to be written, and is of any of the types that 
may be read from a textfile, that is, CHAR, INTEGER, LONGINT, BOOLEAN, REAL, FIXED, 
DECIMAL, or string. The value to be written is never split across two logical output records. 
If the value's length is greater than the output logical record length, an error occurs. The 
default values for an unformatted write are: 


Type Field Width 

INTEGER 10 

LONGINT 15 

REAL(X) 13, for 0<X<8 
22, for 8<=X<N 

FIXED 15 

DECIMAL 20 

BOOLEAN 10 

CHAR 1 

Hexadecimal 10 

String Length of string 


M is an integer expression which is the minimum field width. If M is omitted, an implementation 
defined default value is assumed according to the type of E. In general, the value E is written 
with M characters. If the value E requires less than M characters for its representation, then 


an adequate number of preceding blanks is written such that exactly M characters are written. 


If M is less than the number of characters required to represent E, then necessary additional 
space is allocated, except for REAL values, in which case the field is filled with asterisks. 
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The specification of N is optional. If N is specified, E must be of type REAL, FIXED, 
or DECIMAL, and the value of E is written in a fixed point representation with N digits 
after the decimal point. If N is omitted, and E is of type REAL, its value is written in 

a floating point representation which consists of a coefficient and scale factor. For 
real, fixed point, and decimal write-parameters of the form E:M, no more precision 

is ever printed than the value contains. 


If V is of type INTEGER or LONGINT then the value may be written as a string of hexa- 
decimal digits (not preceded by the character "#"). The write parameters then have 
the form: 


E HEX 
E:M HEX 


If the number of nonzero hexadecimal digits in E is less than or equal to M, E is written 
with (possible) leading zeros. The maximum number of hexadecimal digits (including 
leading zeros) that can be written is defined by the implementation of INTEGER and 
LONGINT. 


If the value of E is of type FIXED, then it may be written as a binary number. In this 
case, the write-parameters are of the form 


E BIN 

E:M BIN 

EsM:N BIN 
If the value of E is of type BOOLEAN, then the standard identifier TRUE or FALSE is 
written, preceded by an appropriate number of blanks as specified by M. If M<5, the 


character T or F is written instead. 


If the value of E is a packed array of characters, then the string E is written. 


Example: 


Given the declarations 


VAR CH : CHAR: 
X : INTEGER 


(See ae es PE ee 
4 


Executing READ(F,X) results in 


spinieacmentid | 
Ble ee EEE 
— a ee od 
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The procedures ENCODE and DECODE are processed just like the textfile procedures WRITE 
and READ respectively, except a memory array is used instead of a file. 


ENCODE(S,N,STAT,P) 


DECODE(S,N,STAT,Q) 


P is a write-parameter of the form given in paragraph 
6.5.3. The character representation of E's value is placed 
into S, of type string, starting at the Nth component 

of S. N may be a constant or variable of type INTEGER. 

If N is a variable, it is automatically incremented by the 
number of characters transferred. The status of the opera- 
tion is returned in the variable STAT which is of type 
INTEGER. If (N-1) plus the number of characters to be 
transferred is not a valid index into the string, an error 

is indicated in the STAT variable, nothing is transferred 
and N is not updated. 


Status values: 

0 - normal completion 

1 - invalid parameter passed 
2 - field width too large 


Let Q be a read-parameter of the form given in paragraph 
6.5.3. The characters starting at the Nth component 

in the string S are converted to the internal representation 
of V and this value is assigned to V. V may be a component 
of a packed structure. N may be a constant or variable 

of type INTEGER. If N is a variable, it is automatically 
incremented by the number of characters transferred. 

The status of the operation is returned in the variable 
STAT which is of type INTEGER. If Q is formatted and 
(N-1) plus the number of characters to be transferred 

is not a valid index into the string, an error is indicated 

in the STAT variable, nothing is transferred, and N is 

not updated. If Q is unformatted, the last character of 

the string terminates the value to be transferred. 


Status values: 

0 = normal completion 

1 - invalid parameter passed 
2 - field width too large 

3 - incomplete data 

4 - invalid character in field 
5 - data value too large 
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6.5.5 Random Files 


The READ and WRITE procedures for random files are the same as for sequential files except 
they include an argument that specifies the logical! position of the file element to be accessed. 


The EOF function can be used to determine if a nonexistent record has been referenced, 
Note that if record N has been written, then records 0...N exist, even though values may not 
have been written to some of them. RESET opens a random file for input, either EXTEND or 
REWRITE opens a random file for both input and output, and REWRITE causes the file to be 
erased, 


In the following, let F be a random file, and let V denote a variable compatible with the compo- 
nent type of F and of any type except FILE, POINTER, or ARRAY and RECORD whose compo- 
nent types contain a FILE or POINTER type. 


READ(F,RECNUM,V) Assign the component with logical position RECNUM 
to the variable V. RECNUM must be an expression of 
type INTEGER or LONGINT whose value is greater than 
or equal to Zero. It is not automatically incremented 
after the READ operation. (The variable V may be a coi 
ponent of a PACKED array or record structure with the 
read having the same effect as that of an assignment 
statement.) The READ should be followed by an EOF test 
test to determine whether a read actually occurred or the 


record did not exist, in which case variable V is not altered.. 


WRITE(F ,RECNUM,V) Write the variable V as the component with logical position 
RECNUM. RECNUM must be an expression of type INTEGER 
or LONGINT whose value is greater than or equal to 
zero, and is not automatically incremented after the 
WRITE operation, An error occurs if the value of RECNUM 
is less than Zero. 


6.5.6 Alternate Forms 


Certain nonstandard or abbreviated forms of the procedure statements for file manipulation 
are also allowed. These forms are shown in the lefthand column and the equivalent standard 
form is shown on the right. 


ww 
EOF EOF(INPUT) 
EOLN EOLN(INPUT) 
READ(F ,V1,V2,e0e, VM) BEGIN 


READ(F, V1); 
READ(F, V2); 


READ(F, Vn) 
END 


* READ(V1, V2, eo, Vn) READ(INPUT, V1, es, VN) 


READLN(F, V1, V2, ««., Vn) BEGIN 
READ(F, V1, «+, Vn); 
READLN(F) 
END 


READLN(V1, V2,....,Vn) READLN(INPUT, V1,...,Vn) 
READLN READLN(INPUT) 


ae 


Pascai/0982/e 


Th TRIUMPH-ADLES 


6/25 


WRITE(F, P'1, P2, oe, Pn) BEGIN 
WRITE(F, P 1); 
WRITE(F, P2); 


WRITE(F, Pn) 
END 
WRITE(P 1, P2, oe, Pn) WRITE(OUTPUT, P14, ..., Pn) 
WRITELN(F, P1, .., Pn) BEGIN 
WRITE(F, P1, ., Pn); 
WRITELN(F) 
END 
WRITELN(P 1, .., Pn) WRITELN(OUTPUT, P14, ..., Pn) 
WRITELN WRITELN(OUTPUT) 
PAGE PAGE(OUTPUT) 
If Nis a constant: 
ENCODE(S,N,STAT,P 1, ..., PN) BEGIN 
ENCODE(S,N,STAT,P 1); 


ENCODE(S,N+L(E1), STAT, P2); 
ENCODE(S,N+L(E 1)+L(E2)+...+L(EN-1),STAT,PN) 
END 


where L(Ei) is the length of the string representation of Ei. If N is a variable, replace the second 
parameter in all of the above procedure calls by N. 


If Nis a constant: 


DECODE(S,N,STAT,Q1, se, QN) BEGIN 
DECODE(S,N,STAT,Q1); 
DECODE(S,N+L(V1),STAT,Q2); 
DECODE(S,N+L(V1)+L(V2)+...+L(VN-1),STAT,QN) 
END 


where L(Vi) is the number of characters converted for Vi. If N is a variable, replace the second 
parameter in all of the above procedure calls by N. 


If F is a random file: 


READ(F,RECNUM,V1,V2, ». VN) BEGIN 
READ(F,RECNUM,V1); 
READ(F,RECNUM+1,V2); 
READ(F ,RECNUM+N-1, VN) 
END 


WRITE(F,RECNUM,P1,P2, ». PN) BEGIN 
WRITE(F,RECNUM,P 1); 
WRITE(F,RECNUM+1,P2); 


WRITE(F ,RECNUM+N-1,PN) 
END 


After each call, RECNUM has not been incremented. 
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6.5.7 1/0 Error Handling 


Normally, when an error occurs on an I/O operation, program execution is terminated and 
an error message is written on the message file. However, it is possible for the user to do 
his own I/O error handling through the use of library procedure IOTERM to prevent termina- 
tion, and perform library function STATUS to determine whether there was an error. 


IOTERM(F,OVAL,NVAL) Save the old value of the I/O termination flag associated 
with the file F in OVAL and set the I/O termination flag 
to the new value, NVAL. OVAL and NVAL are of type 
BOOLEAN and OVAL must be a variable. When the termi- 
nation flag is TRUE, the occurrence of an I/O error causes 
program termination; otherwise, control returns as normal 
and the function STATUS must be used to determine 
the kind of error encountered. 


STATUS(F) Returns a value of type INTEGER that indicates the status 
of the last I/O operation on file F. The value returned 
has the following meaning: 


#0000 - successful completion 

#0001 thru OOFF - I/O SVC error code from operating 
system 

#0421 - TEXT file error: parameter out 
of range 

# 0422 - TEXT file error: field width too 
large 

#0423 ~ TEXT file error: incomplete data 

#0424 - TEXT file error: invalid character 
in field 

#0425 ~ TEXT file error: value too large 

#0426 - TEXT file error: read past end 
of file 

#0427 - TEXT file error: field exceeds 
record size 

#0500 or 0600 - open error: element size is greater 


than the logical record length 


For a sequential or RANDOM file with the termination flag set to FALSE, each operation on 

the file (RESET, REWRITE, EXTEND, READ, SKIPFILES, PAGE, CLOSE, WRITE, or WRITEEOF) 
should be followed by a call to STATUS. The abbreviated forms of the READ and WRITE calls 
that list more than one read or write parameter should not be used because STATUS must 

be checked after each record. If the user fails to check STATUS, the error will pass unnoticed. 
STATUS is not applicable to SETNAME, SETMEMBER, or SETLUNO. If an invalid file is specified, 
the error will be detected when attempting to open the file with a RESET, REWRITE, or EXTEND. 


In most cases, a nonzero STATUS indicates that the preceding operation failed and, if recoverable, 


should be repeated, However, on a sequential file READ, the variable is filled from the file 
buffer and the next logical record is read into the buffer. Thus a nonzero status on a sequential. 
READ means that the current READ succeeded, but another READ cannot be performed without 
correcting the problem. 
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Example: 


PROCEDURE READER; 
VAR F: FILE OF T; 
xX re 0 
OLD: BOOLEAN; 
BEGIN 
IOTERM(F, OLD, FALSE); 
RESET(F); (* read 1st record into file buffer *) 
IF STATUS(F) <> O THEN ... (* process open error *) 
ELSE WHILE NOT EOF(F) DO BEGIN 
WHILE STATUS(F) <> 0 DO BEGIN 
e-. (* whatever action needed to correct error *) 
READ(F, Y); (* try again to read into file buffer *) 
(* notice that Y is a dummy variable; the data 
put into it by this READ is not meaningful. *) 
END; 
READ(F, X); (* copy file buffer to X; read next record *) 
(* process data in X *) 
END; 
END; 
END; 


Error handling for TEXT files is similar to that for sequential files with additional considerations. 
The abbreviated forms of the READ and WRITE calls that list more than one field should not 

be used because STATUS must be checked after each field. Also, each READLN and WRITELN 
should be performed separately without including any fields in the same call. If STATUS indi- 


cates an error after a WRITELN, only the WRITELN itself is repeated; the WRITEs that loaded 
the file buffer should not be repeated. 


6.6 Pointer Type 


Variables may be referenced indirectly by means of a pointer, which may be thought of as 
the address of the variable pointed to by the pointer variable. A pointer type consists of an 
unbounded set of values pointing to elements of a given type. Pointer variables are most 


often used in conjunction with records to create data structures such as linked lists or trees. 
The syntax of a pointer type is: 


<pointer type> s:= @<type identifier> 
The type of <type identifier> is said to.be bound to the pointer type, and may not be a file. 
A pointer variable can point only to variables of the type to which it is bound. The predefined 


constant NIL is an element of every pointer type and points to no element at all. 


A pointer type is a structured type. The component of a pointer variable is denoted by the 
pointer variable followed by the symbol '@’. The syntax is: 


<referenced variable> ::= <pointer variable> © 
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If the value of P is NIL, an attempt to reference P@ will use the representation of NIL as if 
it were a valid pointer. The result of this is an error when the program is executed. A compiler 
option is available to check at runtime for a reference to a NIL pointer. 


Example: 


TYPE PTYPE = GREC; 
REC = RECORD 
KEY ; INTEGER; 
WEIGHT : REAL 
END; 
VAR P : PTYPE; 


=) Pe 


The declaration of PTYPE is an example of a forward type declaration, since it precedes 
the declaration of REC. Forward type declarations are permitted only with pointer types. 


The operators applying to pointer operands with compatible types are: 


= assignment 
= equal (The result is TRUE if the operands point to the same "address") 
<> not equal 


The standard function LOCATION may be used to obtain a result of type INTEGER which is 
the address of the variable V denoted by its argument. LOCATION may also be used to obtain 
the entry point of a routine. It may not be used on an argument which is a component of 

a packed structure or a file variable. 


6.6.1 Static and Dynamically Allocated Variables 


Declared variables are referenced by the identifier by which they are declared, so pointers 
to these so-called static variables are of little use. On the other hand, it is possible to create 
variables without the use of declarations. These dynamically allocated variables are not as- 
sociated with an identifier, so they must be referenced by means of a pointer. Dynamically 
allocated variables are created at execution time by the standard procedure NEW, and may 
be deallocated by the standard procedure DISPOSE. 


NEW(P) Creates a new variable of the same type as the com- 
ponent type of the pointer variable P. The address of 
this new variable is assigned to P. (if the component 
type of P is a record type with variants, then enough 
space is allocated to accommodate the largest variant.) 
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NEW(P,T 1,000, TN) This form is valid when the component type of P is a 
record type with variants nested to a depth greater than 
or equal to n. T1 through Tn are compile time constants 
which specify the value of the first n tag fields in the 
order of their declaration. The effect is to allocate storage 
for a new variable of the record type with tag field values 
T1,-0., TN, and assign the pointer to this new record 
to the pointer variable denoted by P. The actual values 
of the tag fields in the new component are not initialized. 


When the second form of NEW is used to generate a variant that requires less storage to be 
allocated than the "largest" variant, errors may arise if an object with larger storage require- 
ments is assigned into that variant. For example, if the record definition is 


TYPE REC = RECORD 
KEY : INTEGER; 
CASE T : BOOLEAN OF 
TRUE : (X : ARRAYI 1.. 5] OF INTEGER); 
FALSE : (Y : ARRAYI 1.. 10] OF INTEGER) 
END; 
RECPOINT = GREC; 


If the procedure NEW had been used to create a new component 


NEW(RECPOINT, TRUE) 


then RECPOINT would point to a record with enough space allocated for the variant X with 
array of length 5. In this case, if the tag field T is assigned the value FALSE, it is possible 
to assign to the variant Y, and the program may then produce incorrect results. 


The procedure NEW obtains storage from what is called the heap to allocate space for the 
variable which it creates. Variables which have been allocated dynamically from this heap 
may be deallocated at runtime by the standard procedure DISPOSE. 


DISPOSE(P) Makes the_space pointed to by P available for reuse. 
P must point to a dynamic variable, i.e., one allocated 
by NEW. If the value of P is NIL, an error occurs. After 
the storage is deallocated, P is set to NIL. 


Another form of DISPOSE may be used which corresponds to the second form of NEW. 


DISPOSE(P, T1, T2, o., TN) The same rules apply to T1... Tn as in NEW. These values 
should agree with the values specified when the compo- 
nent was created by NEW (but don't have to since always 
exactly as much space is deallocated as was allocated 
by NEW. In other words, a check is not made to see 
that the value of T1... Tn agree with the variant actually 
deallocated.) 
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Example: 


A linked list of records may be created very easily by defining a record which contains one 
field which is a pointer to the next record. This is illustrated by the following diagram: 


FIRST. > T ni ts 


The form of the record definition for this linked list is: 


TYPE PT = @ISTELEMENT; 
LISTELEMENT = RECORD 
KEY : INTEGER; 
NEXT : PT 
END; 
VAR FIRST, POINT, PN : PT; 


FIRST is a pointer to the head of the linked list, and POINT is used to access elements of 
the list. Note that a "forward declaration” is allowed here, 


The list may be created as follows: 


NEW(POINT); 
FIRST := POINT; 
WHILE NOT EOF DO 
BEGIN 
(* BUILD COMPONENTS OF THE RECORD *) 
NEWPN); 
POINT@,NEXT := PN; 
POINT := PN; 
END; 
POINTGNEXT = NIL 


Suppose the list is to be searched for an element with a KEY field value of M. This will be 
done by letting the variable POINT point in turn to each element of the list until the proper 
element is found (if it exists), as shown in the following example: 


POINT := FIRST; 
WHILE POINT <> NIL AND POINTG.KEY <> MDO 
POINT := POINT@.NEXT 


Note that this example would be more complicated if short circuit evaluation were not available. 
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6.7 Packed Data Types 


The symbol PACKED may be prefixed to the structured type definition of arrays, records, 

or sets. If a data structure is declared to be packed, the compiler utilizes the packing algorithm 
described here to obtain a representation for the data in which, if possible, several components 
of the structure are stored in one word. While packing may economize the storage require- 
ments of a data structure, it also may cause a loss in efficiency of access of its components. 


The prefix PACKED does not distribute to the components of a type. Note also that a packed 
type is not compatible with an unpacked but otherwise compatible type. A direct component 
of a structured type is the component at the first level of decomposition of the structured 
type. A direct component of a packed structured type may not be passed by reference to 

a routine (see Section 8 for routines). 


6.7.1 Packed Arrays 
Let T1... Tn be index types and T a type. Then for a static array, 
PACKED ARRAY[ T1,... Tn] OF T 
is equivalent to 
PACKED ARRAY[ T1] OF... OF PACKED ARRAY[ Tn] OF T 
which is not equivalent to 
ARRAY[ T1] OF PACKED ARRAY[ T2] OF ... OF PACKED ARRAY[ Tn] OF T 


since it may not occupy the same amount of storage. For a dynamic array, (as in paragraph 
6.1.2) only the last dimension will actually be packed, i.e., 


PACKED ARRAY[ T1... Tn] OF T 
will use the same amount of memory as 

ARRAYL T1] OF ... OF PACKED ARRAYI Tn ] 
Strings consisting of N>= 1 characters are defined via the type 

PACKED ARRAY[ T1] OF CHAR 
where T1 must be of the form "1..N". If T1 is a static index type, the string's length is fixed 
at compile time; if T1 is a dynamic index type, the string's length is fixed at runtime. The 
length of the string can be determined by using the standard array function UB. A string con- 
stant is of such a type, with length equal to the number of characters, Routines can readily 
be defined to extract substrings, do pattern matching, or perform any other desired operation 
on strings. The basic operators for variables of string type are assignment (:=) and the relational 


operators, (<, =, >, <=, <>, >=), 


Throughout this manual, the word "string" is used to mean PACKED ARRAY [ 1..N ] OF CHAR, 
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6.7.2 Packed Records 


A packed record allows the programmer to define the storage allocation of a record type 
in which the exact position and size of each variable field may be specified subject to the 
size algorithm (paragraph 6.7.3). 


Fields are allocated in the order specified. The size algorithm may not produce the tightest 
packing if a field's size is an integral number of words plus a fraction of a word. To achieve 
the tightest packing, it is the programmer's responsibility to handle this special case by splitting 
the logical field into two or more physical fields and write routines to pack and unpack a 

value before using and storing it. 


6.7.3 Internal Representation of Types 


The size algorithm, given below, specifies in terms of bits and words the internal representation 
for the value of a type. These specifications are given so that machine dependent records 

and machine code routines can be sensibly defined, and so that the effect of a type transfer 
(paragraph 6.9) can be predicted. ww 


If a type occurs in a packed structure, then exactly as much storage as specified by the 

size algorithm should be allocated to it. The size algorithm allocates either a portion of a word 
or an integral number of words. That is, if a type requires more than one word, then it always 
uses an integral number of words and not an integral number of words plus a fraction of a 
word. Consequently, gaps of unused bits may occur. If the type does not occur in a packed 
structure, the size becomes a lower bound, the actual size being selected to facilitate efficient 
access to the type on the underlying machine. 


The size associated with each type is defined as follows: 


? CHAR: ASCII - 8 bits. 

© INTEGER; 16 bits. 

° LONGINT: 32 bits 

i Boolean: 1 bit 

e Scalar: Let N be the ordinal of the largest member of the enumeration, and define 
NR(N) to be the least value of | such that N < 2**I, Then the scalar type requires NR(N) 
bits. 
Examples: 


TYPE WEEK = (MO, TU, WD, TH, FR, SA, SU) 
Then N = ORD(SU) = 6 


3 is the least value of | such that é < 2', so the size of the type WEEK is 3 bits. 


Pascai/0982/e 


TA TRIUMPH ADLER 


6/33 


Subrange: Let L and U be the lower and upper bounds of the subrange. Then if L >= 0 
the size is the same as for a scalar type which has the ordinal of the largest member 
of its enumeration equal to U. If L < 0, the size is Max(NR(-L-1), NR(ABS(U))) + 1. 


Examples: 

TYPE T1 = TU.. FR 

The size is 3 bits, since NR(FR) = 3. 

TYPE T2 = -8.. 3 

The size is Max(NR(7), NR(3)) + 1 = Max(3,2) + 1=4. 
Real: The size of a type REAL (n) is 32 bits when n < 7 and 64 bits when n> 8. 
Pointer: The size of a pointer is 16 bits. 
Array: If the array is not packed, each element occupies one or more consecutive 
words, Let S be the size of an element, that is, the size of the component type. If 
the array has E elements, then the size of the array is E*S. 
If the array is packed and the minimum size of an element is greater than a word, 
then the space, S, allocated for each element is the minimum number of words which 
will contain it. If the array has E elements, the size of the array is E*S. 
If the array is packed and the minimum size, S, of an element is less than a word, 
as many elements as possible are packed per word (D) with a possible number of bits 
left unused at the end of the word. The data will occupy a nonintegral number of words 
W+F, where W ts the whole number of words, E/D, and F is the fraction of a word 
(E MOD D) * S. The remaining bits of the portion of the word are unused. That is, the 
array occupies an integral number of words; either the exact number of words required 
for the elements of the array, or the whole number of words required (W) plus the word 
that contains the fraction of a word (F). An array may occupy a single word or a portion 
of a word (W= 1, F =0, or W=0,F = 1). 
Example: 

(* assume 16-bit words *) 


A = PACKED ARRAY[1.. 10] OF 0.. 31 


The subrange type 0. . 31 requires 5 bits. A requires three whole words (with one bit 
unused in each word) and 5 bits of a fourth word. 


X = PACKED ARRAY[ 1..5] OF T 


where T requires 20 bits. Then X requires 10 full words. 
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Record: The size associated with a record type is the number of consecutive words 
and bits needed to contain the fields in the fixed part plus the largest field list in the 
variant part. Fields are allocated in the order of declaration. 


If a record is not packed, a field occupies one or more words as required by the size 
of its associated type. If the record is packed and the preceding field occupies less 
than a full word, a field is allocated within the remainder of the word allocated to the 
preceding field provided it fits. If the preceding field occupies more than one word 
(even though there may be unused bits in the second or subsequent word of the field), 
or if there are not enough unused bits, the field is left justified at the beginning of the 
next available word, and the previous field is right justified in the previous word. If 

the size of the record is greater than a word, then the last field of every variant is 
right justified. 


Field lists within the variant part are overlaid upon one another. 
Example: 

(* ASSUME 16-BIT WORDS *) 

TYPE R = PACKED RECORD) 


A: PACKED ARRAY[ 1..10] OF 0.. 31; 
(* NOTE SIZE 0.. 31 = 5 *) 


J 035 7% 

K:0.. #FFF; 

L : INTEGER 
END 


Note the unused bits: 1 in each of the first three words, 11 in the fourth word, and 
1 in the fifth word. 


Set: The size of a set type depends on the size of its base type. If the base type of 

a set has an upper bound with ordinal N, then a packed set requires at least N+1 bits; 
otherwise it occupies the least number of bits that is greater than or equal to N+1 which 
can be efficiently accessed on the machine. The maximum set size is 128 bytes (1024 
elements). 


Fixed: A variable of type FIXED(p,q) occupies one word if p< 15, or two words for 
p> 15. 


Decimal: A variable of type DECIMAL occupies one byte for each two digits. A sign, 
which counts as a digit, is included. An additional byte is added when needed so that 
the size allocated is always an even number of bytes. 
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6.7.4 The Size Function 


The standard function SIZE applies to any type. SIZE(T) yields a result of type INTEGER which 
is the number of bytes required to represent type T. 


The following forms of the call to function SIZE are valid: 


SIZE(T) 
SIZE(T,T 1,000, 7N) 
SIZE(V) 
SIZE(V,T 1,000, TN) 


The first argument is either a type (T), a type identifier (T), or a variable (V). For all types 
except REAL(P), DECIMAL(P,Q), and FIXED(P,Q), T is the type. For REAL(P), DECIMAL(P,Q), 
and FIXED(P,Q), T is the type identifier of an item of any of these types. A variable (V) may 
be any type. When T is a record type or V is a variable of record type, T1 through Tn are 

tag fields of variants in the record. The number of tag fields specified must be less than or 
equal to the number of variants in the record. T1 through Tn must represent a complete initial 
sequence of tag fields and must be compile time constants. 


6.8 Type Compatibility 


Two types T1 and T2 are distinct if they are explicitly or implicitly declared in different parts 

of the program. Types T1 and T2 are compatible if T1 may be used in the context of T2 with 
the exception of VAR parameter transmission (see paragraph 8.5). If the type definition involves 
a dynamic type, e.g., arrays or sets with expression or "?" bounds, runtime checks may have 
to be made for type compatibility. The rules that apply are the same as for nondynamic types 
which can be checked for compatibility at compile time. It should be noted that a "?" bound 
matches any subrange's upper bound, 


One type T1 is compatible with type T2 if: 
° 


Both types are subranges of a single enumeration type within the scope in which the 
compatibility check occurs, or 


Both are string types of the same length, or 


Both are set types whose base types B1 and B2 are semantically identical (i.e., K 

is an element of B1 if and only if K is an element of B2). The empty set is compatible 
with any set. Set expressions will be typed if possible from the context established 
by set variables; otherwise they are typed as either the full scalar type, type CHAR, 
or type 0.. 1023, or 


T1 is of type INTEGER or LINGINT, or a subrange thereof, and T2 is of type REAL, FIXED, 
or DECIMAL, or 


? T1 is of type INTEGER and T2 is of type LONGINT, or 

Both are file types of compatible element types, or 

Both are array types of compatible index types with identical bounds and of semanti- 
cally identical component types with the following exception: the component types 


may both be subranges of the type INTEGER, both may be subranges of the type 
LONGINT, or both may be subranges of any other enumerations type, or 
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Both are record types with corresponding fields of semantically identical component 
types with the following exception: the component types may both be subranges of 
the type INTEGER, both may be subranges of the type LONGINT, or both may be sub- 
ranges of any other enumeration type, or 


Both are pointer types which either point to nondistinct structured types or to compa- 
tible nonstructured types, or 


Both are of type REAL, or both are of type FIXED, or both are of type DECIMAL, but 
with different precision. 


Structured types have the further restriction that both are either packed or unpacked. Even 

if two structured types are not compatible, their components may be compatible. With reference 
to the first item of the preceding list, if either subrange occurs in a packed structure, then 

they must have the same bounds. 


The only implicit type conversions are: 


° 


INTEGER to LONGINT 

LONGINT to INTEGER 

INTEGER to REAL 

LONGINT to REAL 

REAL of one precision to REAL of another precision 
FIXED of one precision to FIXED of another precision 


DECIMAL of one precision to DECIMAL of another precision 


Type conversion, both implicit and explicit, is described in Appendix I. 


6.9 


Type Transfer 


Type transfer is a means of temporarily changing the type of an existing variable. The syntaww 


is: 


<type transferred variable> 


z= <variable> :: <type identifier> 


The syntax diagram is as follows: 


Type-transferred variable: 


VARIABLE & TYPE IDENTIFIER 


A type-transferred variable may be used wherever a variable is allowed. Regardless of its 
original type, the type-transferred variable is accessed according to the type indicated. 
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Example: 


TYPE BYTE = 0..#FF; 
RECTYPE = PACKED RECORD 
MSBYTE,LSBYTE : BYTE 
END; 


VAR V: ARRAYL 0. . 9] OF INTEGER; 
R: RECTYPE; 


Valid type transfers: 
R.MSBYTE := VIO] ::BYTE; 
VL 1] BYTE := R.LSBYTE; 
READ(R::INTEGER) 


No value conversion is performed; the only effect is to change the apparent type of the va- 


riable. The variable must not be declared to be a procedure, function, or constant. In addition, 


a variable which is a component of a packed structure may only be transferred to a type 
representable within the boundaries of that component, The type transfer applies only in the 
variable in which it is stated; other appearances of the variable must use the type transfer 
format if a different type is required. 


Example: 


TYPE PT = @S5CB 
VAR FIRST : PT 


FIRST::INTEGER z= FIRST::INTEGER + 40 
Example: 
The type transfer 

R.MSBYTE::INTEGER 


is illegal since the size of the type INTEGER is larger than the 8 bits required to represent 
the component R.MSBYTE. 


The fundamental use of type transfer is to overlay a type template on a data structure so 
that components of the structure may be treated as if they were of any desired type. It re- 
quires a precise understanding of the compiler's representation of the data type on the ma- 
chine to make use of type transfer, and because of this it should be used with caution and 
only when necessary. 


Note that the standard functions ORD and CHR perform type transfers. The effect of a type 
transfer can also be obtained by using RECORD variants to declare two or more types for 
a single memory area. 


For purposes of transportability and reliability, it is better to use ORD, CHR, or record variants 
instead of a type transfer whenever these are appropriate. 
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7 JUMP STATEMENTS 


7.1 The Escape Statement 


The ESCAPE statement is a structured jump statement. It is used to terminate execution of 
the current statement, routine or program. The syntax is: 


ESCAPE <identifier> 
The syntax diagram is as follows: 


ESCAPE statement: 


The <identifier> must be one of the following: 


1. An escape label 
2. A routine identifier 
3. A program identifier 


An escape label is an identifier which is prefixed to a structured statement. It is separated 
from the statement by a colon. The escape label is implicitly declared by its use within the 
program. The structured statement is a unit of scope, so the escape label may not be used 
as a variable, constant, program, or routine identifier within the labeled structured statement. 
(See paragraph 8.7 for a discussion of scope.) 


An ESCAPE statement may appear only within the statement labeled with the escape label 

or within the scope of routine named by the routine identifier. When an ESCAPE from a state- 
ment is executed, further processing continues at the statement following the structured 
statement labeled by the escape label. When an ESCAPE from a routine is executed, control 
returns from the most recently entered activation of the routine. ESCAPE <program identifier> 
terminates the program. The routine being escaped from must be compiled with the TRACE- 
BACK option on. 


Example: 


LOOP : FOR 7 := 1TON DO 
BEGIN 
IF EOF THEN ESCAPE LOOP; 
READ AL 1]; 
S:=S+AL1] 
END 


7/2 


A statement prefixed by an escape label may contain any number of ESCAPE statements 
that reference this label. The escape label and all of its associated ESCAPE statements must 
appear in the same routine body (it is illegal to escape across routine boundaries). Also, rou- 
tines cannot escape from brothers. That is, if routines C and D are defined at the same level 
(see paragraph 8.6), it is not possible to have ESCAPE C asa statement in D. Escape labels 
are implicitly declared, do not have to be unique, and may be reused within a block. 


7.2 The GOTO Statement 


The GOTO statement transfers execution to the statement having the named label. The syntax 
is: 


GOTO <statement label> 
The syntax diagram is as follows: 


GOTO statement: 


The <statement label> must be an unsigned integer and must be in a LABEL declaration, 
as discussed in paragraph 8.2. If the label is not declared or does not appear as a statement 
label in the program, a syntax error occurs. 


Example: 


PROGRAM LAB; 
LABEL 100; 
VAR X: REAL; 


100 I :=1+ 1; 
IF ALI] <> X THEN GOTO 100 


GOTO statements should be used as seldom as possible, since the use of other contro! struc- 
tures such as WHILE and CASE can resuli in clearer code, especially if the program is well 
designed. In addition, any procedure, function, or program with label declarations will not 
have its <body> part optimized by the Pascal compiler. 


It is not legal to jump into or out of a procedure or function. And, it is not legal to jump into 

a FOR or WITH statement. At most one statement label can mark a given statement. If a state- 
ment label and an escape label both are used on a structured statement, the statement labe! 
must be first. For example, 


100 : LOOP : FORN:=17T0O 64 DO... 
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8 THE PROGRAM AND ITS ROUTINES 


8.1 The Pascal Program 


The Pascal program consists of the program heading, the declarations, and a compound state- 
ment that includes the statements of the program. The syntax of a program is as follows: 


<program> ::= <program heading> <block>. 
<program heading> ::= PROGRAM <program identifier>; 
<program identifier> ::= <identifier> 

The syntax diagram is as follows: 


Program: 


= O @ 


The declarations and statements of the program are referred to as the block. The syntax 
of the block is as follows: 


<block> ::= <declarations> <compound statement> 

<declarations> ::= [ <label declaration part>] [ <constant declaration part>] 

[ <type declaration part>] [ <variable declaration part> ] 

[ <common variable declaration part>] 

[ <access declaration part>] 

[ <procedure and function declaration part>] 
The syntax diagrams are shown in figure 8-1. The label, constant, type, variable, common, 
access, procedure, and function declarations are defined in subsequent paragraphs. A proce- 
dure or function declaration either includes or references a block that contains the declara- 


tions and compound statement for the procedure or function. The syntax of the block is the 
same whether it constitutes a program or a procedure or function at any level. 
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8.2 Declarations 


The seven types of declarations used in the blocks of programs, functions, and procedures 

are described in the following paragraphs. The declarations may be omitted, but, when in- 
cluded, must be in the sequence in which they appear in the BNF production for declarations. 
Each identifier used in the program must be declared (either in the block in which it is used 

or in a block at a higher level that encloses the block in which it is used) or it must be standard 
in the language. (Some identifier declarations are implicit: FOR control variables, variables 
used as abbreviations in WITH statements, and ESCAPE labels. These identifiers do not require 
explicit declaration.) 


8.2.1 LABEL Declaration 
The syntax of the LABEL declaration is as follows: 
LABEL <statement label> } , <Sstatement label> t; 
A label on a statement must be declared in the label declaration part of the program. The 
label is an unsigned integer, and only one statement in the statement part may be prefixed 


with a given label. A GOTO statement may then be used to transfer control to the labeled 
statement. 


8.2.2 Constant Declaration 
The syntax of the constant declaration is as follows: 


CONST <identifier> = <constant expression> 
rr <identifier> = <constant expression> ¢; 


In the subsequent text of the program, the identifier may be used as a synonym for the con- 
stant. The value associated with the constant identifier may not be changed during program 
execution. Constant expressions may involve only numbers, previously defined constant iden- 
tifiers, operators, and strings. 


Examples: 
CONST MAX = 128; 


HEAD = ‘INITIAL VALUE"; 
VAL = MAX*2 = 1; 


8.2.3 Type Declaration 

Identifiers may be used to denote a type by means of type declarations with the syntax: 
TYPE <identifier> = <type> E <identifier> = <type> i, 

The identifiers may be used to denote the types within the scope of the declaration. 


Examples: 


TYPE REC = RECORD 
NAME : PACKED ARRAY[ 1... 20] OF CHAR; 


ADDRESS : ADDREC 
END; 
VEC = ARRAYI 1.. 10] OF REC; 
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Type declarations are a convenient means of declaring a user-defined type. A type declara- 
tion alone does not reserve memory for any variables of the specified type; a variable decla- 
ration described in the next paragraph is required also. The type may be defined in the variable 
declaration, as in the third example in that paragraph. Use of the type declaration promotes 


readability of the program; it saves work where several variables of the same type are declared; 


and it is required for a static array that is passed to a routine as a parameter. 


8.2.4 Variable Declaration 


Variables must be declared before they are used in the program or routine. (Implicitly declared 
variables such as FOR control variables and WITH variables do not require declaration.) The 
syntax of a variable declaration is as follows: 


VAR <identifier> }, <identifier> 
;<identifier> ;, <identifier> 


: <type> 
: <type> {; 


The declaration specifies a type which is associated with each variable. The type may be 
specified by means of a standard type (X, Y, and Z in the example below), a previously de~ 
clared type identifier (A below), or by defining the type directly in the VAR declaration (X 
below). 


Example: 


VAR X, Y, X : INTEGER; 
A: VEC; 
X : ARRAYI 1.. 64] OF REAL; 


8.2.5 COMMON Declaration 


The syntax of a COMMON declaration is as follows: 


COMMON <identifier> , <identifier> | : <type> 
};<identifier> , <identifier> 7 <type> t, 


The COMMON declaration declares the variables, specifies their type, and indicates that the 
variables are to be common as described in paragraph 8.9. 


8.2.6 ACCESS Declaration 


The syntax of the ACCESS declaration is as follows: 
ACCESS <identifier>}, <identifier>} ; 


where each identifier must also appear in a COMMON declaration whose scope includes the 
ACCESS declaration. An option is available which will restrict access to all nonlocal variables 
to those which have an ACCESS declaration. Access rules are described in paragraph 8.9. 


8.2.7 Routine Declarations 


Declarations of procedures and functions are called routine declarations. The syntax for routine 
declarations is as follows: 


<procedure declaration> ::= <procedure heading><block> 
| <procedure heading> FORWARD 
| <procedure heading> EXTERNAL <linkage> 


<function declaration> ::= <function heading><block> 
| <function heading> FORWARD 
| <function heading> EXTERNAL <linkage> 


| 
\ 
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<procedure heading> ::= PROCEDURE <identifier>; | 
PROCEDURE <identifier><parameter list>; 


<function heading> ::= 
FUNCTION <identifier>[ <parameter list> ] : <result type>; 


<result type> ::= <type identifier> 

<linkage> ::= PASCAL | FORTRAN | REENTRANT FORTRAN | <empty> 
The syntax diagram for routine declarations is shown in figure 8-2. The parameter list portion 
of the heading is described in a subsequent paragraph. Each routine declaration contains 
either a block, a reference to a block included at a subsequent point in the same program 


(FORWARD), or reference to a block not included in the program (EXTERNAL). 


Routine Declaration: 


PROCEDURE 
FUNCTION 


FORWARD 


EXTERNAL 


PARAMETER 
LIST 


IDENTIFIER 
IDENTIFIER 


PARAMETER 
LIST 


TYPE 
IDENTIFIER 


PASCAL 


FOR TRAN 


Figure 8-2. Syntax Diagram for Routine Declaration 
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8.2.7.1 Forward Declaration 


A routine declaration which refers to a body included elsewhere in the same program is called 
a forward declaration. This may be done for convenience, to allow the program modules to - 
be managed by utility CONFIG. However, a routine declaration must precede a call to the 
routine. This requirement makes a forward declaration necessary when procedures A and 


R call each other. This is called indirect or mutual recursion. 
Example: 


PROGRAM MAIN; 
PROCEDURE A(X, Y : REAL) ; FORWARD; 


PROCEDURE R (L : INTEGER); 
VAR S, T : REAL; 
BEGIN (* R *) 
ACS, T); 


END (* R *); 


PROCEDURE A; 

VAR K : INTEGER: 
BEGIN (* A *) 
R(K); 


END(* A *); 


BEGIN (* MAIN *) 


END (* MAIN *). 


In the forward declaration the name of the procedure and its parameters are specified. The 
parameters are omitted from the later declaration that includes the block of the procedure. 
The heading of this declaration consists of the procedure name only. Similarly, the parame- 
ters and result type are included in the forward declaration of a function. The heading of 


the function declaration that includes the block consists of the function name only. 
Example: 
FUNCTION F(X : REAL) : REAL; FORWARD; 


PROCEDURE P(M : REAL); 
BEGIN (* P *) 
X t= F(A) 
END (* P *); 


FUNCTION F; 
BEGIN (* F *) 
P(T) 
END (* F *), 
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8.2.7.2 External Declaration 


EXTERNAL declarations are used when a PASCAL program calls a routine which has been 
externally defined. The routine may be written in Pascal or any other language including 
assembly language. The <linkage> specifies which linkage is used. If <linkage> is <empty>, 


"PASCAL' is assumed. 
<linkage> ::= PASCAL | FORTRAN | REENTRANT FORTRAN | <empty> 


Example: 


PROCEDURE SKIPBLANKS(VAR F : TEXT) ; EXTERNAL PASCAL; 


When parameters are passed to external FORTRAN routines, the following rules apply: 


© Arrays (other than strings), records, and dynamic arrays are always passed by refe- 
rence. 

. VAR parameters are passed by reference. 

‘ Value parameters which are strings (packed arrays of type CHAR having a lower bound 


of 1) and all other types are also passed by reference, but a copy is made and the 
copy is passed by reference. 


3 Procedures or functions may not be passed as parameters. 


There is no provision in FORTRAN for passing parameters by value; all parameters are passed 
by reference. The reference is to the location of the parameter in the case of arrays (other 
than strings) and records. The reference is to the location of a copy in all other cases. 


When Pascal linkage is specified or implied, the external routine must have been compiled 
at the same static nesting level as that of the EXTERNAL declaration. For example, if the 
EXTERNAL declaration is one of the declarations of the main program (the routine is global), 
the external routine must have been declared as a global routine within the environment in 


which it was compiled. 


The parameter list of an EXTERNAL definition must be identical to that of the external routine. 
Furthermore, the declarations of data structures accessed by the external routine must be 
identical to those in the program in which the external routine was compiled, and the declara- 
tion sections in which these data structures are declared must be identical. For example, 
when a global routine accesses an array declared in the main program, the declaration of 

the array in the main program that calls the routine as an external routine must be identical 

to that of the main program in which the routine was compiled, and the other declarations 

for the main programs must be identical, also. 


Assembly language routines may be written using any of these linkages and the routine may 
be declared EXTERNAL with the appropriate linkage specification. Appendix F contains addi- 
tional information about assembly language routines. 


8.3 Statements 


The statement portion of the block consists of a compound statement that includes the state- 
ments of the block as component statements. The syntax of a Pascal statement is as follows: 


<statement> ::= [ <statement label>: ] <simple statement> | 


[ <statement label>: ] [ <escape label>: ] <structured statement> 
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<simple statement> ::= <empty statement> | <assignment statement> | 
<procedure statement> | <escape statement> | <goto statement> | 
<assert statement> 

<structured statement> ::= <compound statement> | 


<conditional statement> | <repetitive statement> | <with statement> 
<conditional statement> ::= <if statement> | <case statement> 


<repetitive statement> ::=<for statement> | <while statement> | 
<repeat statement> 
<empty statement> ::= <empty> 
<escape label> ::= <identifier> 
<statement label> ::= <integer constant> 


The syntax diagram is shown in figure 8-3. 


8.4 Procedure and Function Calls 


A procedure or function may be calied within the statement portion of the block within which 
it is declared, or in the statement portion of a block within the scope of the block within which 
it is declared. A call to a procedure is in the form of a procedure statement. The procedure 
statement syntax is as follows: 

<procedure statement> ::= <procedure identifier> 

[ ([ <actual parameter> } » <actual parameter>} })] 
<procedure identifier> ::= <identifier> 
<actual parameter> ::= <expression> | <variable> | 


<procedure identifier> | <function identifier> 


A function call may be used in any statement in which an expression is valid. The syntax 
is as follows: 


<function identifier>[ ([ <actual parameter> ; » <actual parameter> {])] 
<function identifier> ::= <identifier> 
The function returns a result of the type specified in the function heading. This resuli becomes 


the value of the function call in the statement in which the call occurs. The actual parameter 
syntax is the same in the function cail as in the procedure call. 
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ASSIGNMENT 
STATEMENT 
ESCAPE 
STATEMENT 
ASSERT 
STATEMENT 


COMPOUND 
STATEMENT 


IF STATEMENT 
CASE STATEMENT 
FOR STATEMENT 


REPEAT 
STATEMENT 


PROCEDURE 
STATEMENT 


GOTO 
STATEMENT 


WHILE 
STATEMENT 


WITH 
STATEMENT 


Syntax Diagram for Statement 
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8.5 Parameters 


The heading of a routine (paragraph 8.2.7) specifies the formal parameters for the routine. 

These formal parameters, also called dummy parameters do not denote a value until the routine 
is called. At that time the actual parameters are substituted for the formal parameters. This 
mechanism for passing parameters between programs and routines identifies the parameters 

to be passed, and should be used to the exclusion of other methods of transferring data between 
programs and routines. Parameters of functions are sometimes called arguments, and may 

not be used to return a result to the calling program or routine. 


Parameters may be substituted by value or by reference as follows: 


= Value Substitution - When the routine heading does not specify a type of substitution, 
value substitution, or call by value, is performed. The actual parameter is evaluated 
and its value is substituted for the formal parameter. This prevents the called routine 
from changing the value of the actual parameter in the calling program or routine. 


= Variable Substitution - When the routine heading specifies variable substitution (call 
by reference) for a parameter, the address of the actual parameter is substituted for 
the formal parameter, and the address is used to access the actual parameter indirectly. 
Any assignment of a value to an actual parameter by a statement in the routine alters 
the value of the actual parameter in the calling program or routine. Reserved word 
VAR precedes the specification of the formal parameter to specify variable substitution. 


Examples: 


PROGRAM SAMPLE; 
VAR A, V : INTEGER; 


PROCEDURE ABS1(X : INTEGER; VAR Y : INTEGER); 
BEGIN 
IF X < 0 THEN X t= -X; 
Y t= X 
END; 


BEGIN (* SAMPLE *) 
A t= -5; V c= 0; 
ABS1(A, V); 
WRITELN(A, V) 

END (* SAMPLE *). 


Since X is a value parameter, the value of A is not changed within procedure ABS1. Y, however, 
is a variable parameter, so the assignment to Y in ABS1 changes the value of V in the main 
program. The values printed are -5 and 5. 


Value parameter transmission offers the security of preventing inadvertent changes to program 
values by a routine. It also may be an efficient way to pass simple variables as parameters. 
However, since this method involves copying values, it may be inefficient to pass cata struc- 
tures such as large arrays by value, 


The only way a function can return values is by assigning a value to the identifier which denotes 
the function. This result type must be an enumeration, REAL, FIXED, DECIMAL, or pointer 


type. 
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The syntax for the parameters of a routine declaration are as follows: 
<parameter list> ::= ([ <anyparameter> F <anyparameter> }) 


<anyparameter> ::= <parameter> | 
PROCEDURE <identifier> [ ([[ VAR] <type specification> 
\ [ VAR ] <type specification> ¢])] | 
FUNCTION <identifier> [ (I VAR ] <type specification> 
$s VAR ] <type specification> { ])] :<type specification> 


<parameter> ::= [ VAR ] <identifier> <identifier> { > <partype> 
<partype> ::= <type specification> | <dynamic parameter type> 


<dynamic parameter type> ::= 
[ PACKED ] ARRAY "[ "<parameter index> \, <parameter index>{ “)* 
OF <type specification> | [ PACKED ] SET OF 
"[ "<dynamic parameter index type> "]" 


<parameter index> ::= <subrange type> | <type identifier> 
| <dynamic parameter index type> 


<dynamic parameter index type> ::= <manifest constant>.. ? 


<type specification> ::= INTEGER | LONGINT | CHAR | BOOLEAN 
| REALL (<integer constant>)] | FIXED (<integer constant>), 
[ <sign>] <integer constant>) 
| DECIMAL(<integer constant>, [ <sign>] <integer constant>) 
| <type identifier> 


Each parameter is specified by a type identifier which may be one of the pre-defined types 
or a user-defined type. Type constructs such as subrange, ARRAY, RECORD, or SET types 
cannot be used in a procedure heading (with the exception of dynamic parameters, as des- 
cribed in paragraph 8.5.2); a type definition should be used to define a name for the type. 
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The syntax diagrams are as follows: 


Parameter list: 


PARAMETER 


a. ll TYPE SPEC. | 


Eri TYPE SPEC. . 


TVPE SPEC. 
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Parameter: 


Parameter index: 


MANIFEST CONSTANT 
TYPE 
IDENTIFIER 
MANIFEST CONSTANT 


MANIFEST CONSTANT 


8.5.1 Rules for Parameters 


The following rules apply to parameters: 


2 The number of formal and actual parameters must be the same. 


A formal value parameter must be compatible with the type of the corresponding actual 
parameter, as described in paragraph 6.8. For example, if a formal parameter is an 
array of integers with index 1.. 10, the actual parameter must be an array of integers 
(or subrange of integers) with index 1.. 10. 
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e For variable parameters, the type of the actual parameter must be identical to that 
of its corresponding formal parameter, with the following exceptions: 


- The actual parameter may be of a type which is a subrange of the type of 
the corresponding formal parameter, or vice versa. 


- If the formal parameter is a dynamic array or set parameter, the actual para- 
meter must be an array or set, respectively, packed or unpacked as the formal 
parameter, with bounds equal to those specified in the declaration of the formal 
parameter and not set by ?, and with component type identical to that of the 
formal parameter. 


2 For value parameters, the corresponding actual parameter may be any expression 
of the same type as the parameter. 


. For variable parameters the actual must be a variable and may not be a component 
of a packed structure. 


S File parameters must be passed as variable parameters, 


8.5.2 Dynamic Array and Set Parameters 


In order to write routines which accept arguments which are arrays of arbitrary dimension 

or sets of arbitrary size, it is necessary to use dynamic parameter types. A dynamic parameter 
type is an array or set with a lower bound which is fixed at compile time (a manifest constant) 
and an upper bound which is determined at runtime and denoted by a question mark. The 
subrange expression is of the form: 


<manifest constant>. .? 


and can be used to specify either an index type of an array or the size of a set as a formal 

parameter, This subrange matches any index type with the same lower bound. The standard 
function UB may then be used to determine at runtime the value of the upper bound of the 

array or set which is passed as an actual parameter. 


A multidimensional array may have dynamic upper bounds for one or more dimensions, 


The actual parameter corresponding to a dynamic parameter type formal parameter must 


meet the requirements outlined in the preceding paragraph. ed 


Example: 


FUNCTION MAX(VECTOR : ARRAY [ 1..?] OF INTEGER) : INTEGER; 
VAR HOLDMAX : INTEGER; 
BEGIN 
HOLDMAX := VECTORI 1]; 
FOR | := 2 TO UB(VECTOR) DO 
(* HERE HOLDMAX = MAX OF THE 1ST I-1 ELEMENTS OF VECTOR *) 
IF HOLDMAX <VECTORT 1] 
THEN HOLDMAX := VECTORI 1]; 
MAX := HOLDMAX 
END; (* MAX *) 


Cee 
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When two or more formal parameters are grouped together with the same type, the actual 
parameters are required to have the same dimensions, For example, the procedure: 


PROCEDURE TWO (VAR A,B: ARRAY [ 1..? ] OF REAL); 


accepts two arrays which must be the same size. 


8.5.3 Procedure and Function Parameters 


In addition to passing variables as parameters, it is possible to pass procedures or functions 

as parameters. In the case of a procedure parameter, the actual procedure must have the 
same number of parameters as the formal parameter declares, and the parameters must be 

of compatible types. In the case of a function parameter, the result type must be compatible, 
and the number and types of parameters must agree. The specific procedure or function in 

the call is performed whenever the routine calls the procedure or function declared as a formal 
parameter. 


Example: 


PROCEDURE FINDMIN(FUNCTION F(INTEGER):REAL; VAR MIN:INTEGER); 
VAR K : INTEGER; 
BEGIN K := 1; 
FOR | := 2 TO 10 DO 
IF F(l) <F(K) THEN K = |; 
MIN := K 
END; 


Procedure FINDMIN has one parameter which is a function having a single integer type argu- 
ment and a real result and has a second parameter which it sets to the integer value between 
1 and 10 for which the function is minimum. An example of a call to FINDMIN is as follows: 


FINDMIN (RCPR,X) 


Assuming that RCPR is a function that returns the reciprocal of an integer as a real number, 
integer variable X would be set to 10 when the call is executed. Another example is as follows: 


FINDMIN (SQRI,X) 


Assuming that SQRI returns the square of an integer in real number format, integer variable X 
would be set to 1 when the call is executed. 


8.5.4 Procedures and Functions Without Parameters 


A procedure may have no parameters in which case the form of the heading is either 


PROCEDURE <identifier>; 
or 
PROCEDURE <identifier>(); 


and the call is a statement of the form 
<identifier> 


or 
<identifier> () 
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Similarly, if a function has no parameters it may be declared with heading of either of the 
forms 


FUNCTION <identifier> : <type identifier>; 
or 
FUNCTION <identifier> () : <type identifier>; 
and the function may be called by either of the forms 
<identifier> 
or 


<identifier> () 


8.6 Block Structure 


A Pascal program consists of a program block that contains the declarations and statements 
of the main program. Among the declarations of a program there may be routine declarations. 
The main program block includes the headings of any routines declared but excludes the 
blocks (declarations and statements) of these routines. Similarly, the. block of each routine 
may contain declarations of other routines. The blocks of these routines are not considered 
to be part of the block in which they are declared. This nesting of routines within the main 
program and within routines forms a block structure. 


Blocks are associated with a level of nesting. The main program is at level 1. Those routines 
declared in the main program are at level 2. Routines declared in level 2 routines are at level 3, 
etc. The following example illustrates a possible structure of routine declarations: 


PROGRAM A 
PROCEDURE B 
PROCEDURE C 
PROCEDURE D 
PROCEDURE E 
PROCEDURE F ( 
PROCEDURE G 


Procedures B and E are declared in program A, procedures C and D are declared in procedure B, 
procedure F is declared in E, and G is declared in F. One way of depicting this structure is 
by means of a declaration tree, which is illustrated by the following figure: 


(A) 


ene 


(B) (E) 


(C) (D) 
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In the example, program A is at level 1, routines B and E are at level 2, routines C, D, and 
F are at level 3, and routine G is at level 4. 


8.7 Scope and Extent 


The block structure determines the scope of identifiers that denote constants, variables, and 
routines. The scope of an identifier consists of the portion of the total block structure in which 
that identifier can be accessed (e.g., a variable may be assigned a value, a variable or constant 
may be used in a computation, or a routine may be called). 


The variables that are declared in the main program block are global variables and apply 
throughout the entire program. Similarly, the routines and all other declarations of the main 
program block have a global scope. Declarations in other blocks of the block structure have 

a limited scope. Referring to the declaration tree example in the preceding paragraph, the 
scope of declarations in routine B includes routines B, C, and D, the portion of the tree decla- 
red in routine B. Similarly, the scope of declarations in routine E includes routines F and G. 
The declarations in routines C, D, and G declare local identifiers; i.e., these identifiers apply 
only to the routines in which they are declared. 


As previously stated, a routine can call any routine previously declared in the block in which 
that routine is declared or in any enclosing block. This allows a routine to call itself, a recur- 
sive call. 


An identifier must have a unique meaning within the block in which it is declared. However, 

a nonlocal identifier may be redefined in a routine at a lower level. Within the scope of the 
original declaration, exclusive of the scope of the redefinition, the original declaration applies. 
Referring to the declaration tree example, an identifier declared in program A could be rede- 
fined in routine F. The scope of the declaration in routine F would be routines F and G. The 
scope of the declaration in program A would include the main program block, and routines 

B, C, D, and E. 


Example: 


PROGRAM MAIN; 
VAR X : REAL; 
PROCEDURE P; 
VAR X : INTEGER; 
BEGIN (* P *) 
X = 10 
END (* P *); 


BEGIN (* MAIN *) 


END (* MAIN *). 


Within procedure P, the identifier X denotes the local integer variable, and the global real 
variable X is not accessible by the name X. 


Note that this name precedence rule applies to constant, type, variable, and routine identifiers 
and to identifiers used as scalar constants. Alsc, it is possible to redefine any of the standard 
identifiers which denote objects such as the procedure READ, although this is not recommended 
since it is likely to result in a program which is difficult to understand. 


The blocks of a Pascal program are not the only units of scope. Other units of scope include 
record declarations, FOR statements, WITH statements, and structured statements. The record 
declaration is the unit of scope for the field identifiers in the record. A FOR statement is the 
unit of scope for the control variable. The WITH statement is the unit of scope for the with 
variables. The structured statement is the unit of scope for the escape label. Redefinition 

of an identifier within either of these units of scope is applicable only in the unit of scope 
within which it is redefined. 
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The scope of a routine relates both to identifiers and to calls to routines, and there are subtle 
differences. Figure 8-4 shows a program structure consisting of a program block MAIN, and 
routine blocks RA, RB, RC, RD, RE, and RF. The MAIN block includes declarations of variables 
a, b, and c, and of routines RA and RB. The routine RA block includes declarations of variables 
a and f, and of routine RC. The routine RB block includes declarations of variables c, d, and 

e, and of routines RD and RE. The routine block RC includes a single declaration, that of 
variable g. The routine block RD includes declarations of variables f, g, and h. The routine 
block RE includes declarations of variables a and e and of routine RF. The routine block RF 
includes declarations of variables e and h. 


A routine has access to variables declared in the routine and to variables declared in the 
block in which the routine is declared. At successively higher levels the routine has access 

to variables declared in the same block as any ancestor of the routine. Variables having the 
same identifier as those declared at higher levels redefine the identifier for the level at which 
they are declared and for lower levels. These rules result in the accessability defined for each 
block in figure 8-4, 


Figure 8-5 shows another program structure consisting of a program block MAIN, and routine 
blocks RA, RB, RC, RD, RE, RF, RG, and RH. The program block includes declarations of 
routines RA, RB, and RC. The routine RA block includes the declaration of routine RD. The 
routine RB block includes declarations of routines RE and RF. The routine RC block includes 
the declaration of routine RG, which declares routine RH. 


A routine can call any other routine declared in the block in which it is declared. A routine 
may not call a routine that has not been declared previously. However, appropriate FORWARD 
declarations of routines allow a routine to call any other routine declared in the same block. 
At successively higher levels, a routine may call routines declared in the same block as any 
ancestor of the routine, when appropriate FORWARD declarations are included. These rules 
result in the availability of routines shown in figure 8-5. 


The scope and extent of identifiers is related to the allocation of space for the data for routines. 
This space is obtained from a region of memory called the stack. The space used for the 
parameters, local variables, and temporary values of a single routine is called a stack frame. 

When execution of the routine is completed, the stack frame is deallocated and that space 

is available to be used by other routines. 


Using the example program SAMPLE in paragraph 8.5, the stack allocation at the point at 
which procedure ABS1 has been called is as follows: ww 


STACK FRAME FOR PROGRAM SAMPLE 


STACK FRAME FOR PROCEDURE ABS! 


POINTER TO V 
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RA A 
F 
RC G ; 

VARIABLES THAT MAY BE ACCESSED: 
A OF ROUTINE RA, B OF MAIN PROGRAM, C OF MAIN PROGRAM, 
F OF ROUTINE RA, G OF ROUTINE RC 
VARIABLES THAT MAY BE ACCESSED: 
A OF ROUTINE RA, B OF MAIN PROGRAM, C OF MAIN PROGRAM, 
F OF ROUTINE RA 

Cc 


Oo 


RD F 
G 
H 
VARIABLES THAT MAY BE ACCESSED: 
A OF MAIN PROGRAM, B OF MAIN PROGRAM, C OF ROUTINE RB, 
D OF ROUTINE RB, E OF ROUTINE RB, F OF ROUTINE RD, 
G OF ROUTINE RD, H OF ROUTINE RD 
RE A 
E 


F E 
H 

VARIABLES THAT MAY BE ACCESSED: 

A OF ROUTINE RE, B OF MAIN PROGRAM, C OF ROUTINE RB, 


D OF ROUTINE RB, E OF ROUTINE RF, H OF ROUTINE RF 


VARIABLES THAT MAY BE ACCESSED: 
A OF ROUTINE RE, B OF MAIN PROGRAM, C OF ROUTINE RB, 
D OF ROUTINE RB, E OF ROUTINE RE 


VARIABLES THAT MAY BE ACCESSED: 
A OF MAIN PROGRAM, B OF MAIN PROGRAM, C OF ROUTINE RB, 
D OF ROUTINE RB, E OF ROUTINE RB 


VARIABLES THAT MAY BE ACCESSED: 
A OF MAIN PROGRAM, B OF MAIN PROGRAM, C OF MAIN PROGRAM 


Access to Variables in Program Structure 
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MAIN 


RA 


RD 
CAN CALL ROUTINES RD AND RA; tF FORWARD DECLARATION IS USED, 
CAN CALL ROUTINES RB AND RC. 


CAN CALL ROUTINES RA AND RD; IF FORWARD DECLARATION IS USED, 
CAN CALL ROUTINES RB AND RC, 


CAN CALL ROUTINES RE, RB, AND RA: IF FORWARD DECLARATION IS 
USED, CAN CALL ROUTINES RC AND RF, 


CAN CALL ROUTINES RF, RE, RB, AND RA: IF FORWARD DECLARATION 
1S USED, CAN CALL ROUTINE RC, 


CAN CALL ROUTINES RB, RE, RF, AND RA; IF FORWARD DECLARATION | ) 
1S USED, CAN CALL ROUTINE RC, 


RC 
RG | 


RH 
ae CALL ROUTINES RH, RG, RC, RB, AND RA. 
CAN CALL ROUTINES RG, RH, RC, RB, AND RA. 
CAN CALL ROUTINES RC, RG, RB, AND RA. 


CAN CALL ROUTINES RC, RB, AND RA, 


Figure 8-5. Access to Routines in Program Structure | 


The value of A has been copied into X, and Y, has been set to a pointer to V so that a referQue 
to Y is actually an indirect access to V. | 


When a routine which is currently active is re-activated, new instances of all local variables | 
that are not common variables and parameters are allocated. The execution of the current 
activation of the routine always references these currently allocated variables. (This technique 
makes all procedures and functions reentrant.) | 


The method of space allocation results in the identifiers having an extent, i.e., a period of 
time during which they are accessible. The extent of all statically defined quantities is the 
duration of execution of the unit of scope in which they are declared. The extent of dynami- 
cally allocated variables is the duration of program execution between the call of NEW which | 
creates the variable and the call of DISPOSE which frees the space allocated to them. When 
DISPOSE is not called, the extent continues to program terminaticn. 
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8.8 Side Effects 


A function returns a value through the identifier of trie function. When a function changes 
the value of a variable other than the local variables of the function, that change is called 
a side effect. 


Functions with side effects should not be used in the following places: 


° 


in an expression containing global variables which the function alters. Since the order 
of evaluation of parts of an expression is not specified, the results will be unpredictable. 


In an ASSERT statement. Turning off the ASSERTS option could change the results 
of the program if the ASSERT statement had side effects. 


Because functions with side effects may be unreliable, the TAP compiler produces a warning 
message (unless the SIDEFFECTS option is TRUE) for each statement within a function that 
causes side effects. To prevent function side effects, the variable (left-hand side) of an as- 
signment statement should not be any of the following: 


° 


A nonlocal variable. 
A variable parameter of the function. 
A COMMON variable. 


A pointer variable followed by ©, 


User defined functions should not contain: 


° 


Procedure statements that call user-defined procedures or the standard procedure 
READ, 


Calls to externally defined functions. 
Procedures or externally defined functions as parameters. 
A WITH statement that contains a record variable followed by ©. 


Calls to NEW or DISPOSE that have parameters that are not either local variables or 
value parameters, 


The array into which data is packed by a PACK procedure call must be a local variable 
or a value parameter. 


The array into which data is placed by an UNPACK procedure call must be a local 
variable or a value parameter. 


The string into which data is placed by an ENCODE procedure call must be a local 
variable or a value parameter. 


The variable into which data is placed by a DECODE procedure call must be a local 
variable or a value parameter. 


The nonfile parameters of a READ procedure and the OVAL parameter of an IOTERM 
procedure must be local variables or value parameters. 
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. Procedures RESET, REWRITE, EXTEND, WRITEEOF, SKIPFILES, CLOSE, SETNAME, 
SETMEMBER, and IOTERM may be used only with parameters of file type that are 
local variables. 


These restrictions may make it necessary to use a procedure fer some purposes for which 
a function might otherwise be used. However, this inconvenience is more than made up for 
by the reliability which is gained from preventing side-effects. 


8.9 Common and Access Declarations 


COMMON and ACCESS declarations are used to declare variables which may be shared with 

other routines falling within the scope of the COMMON declaration, or with externally compiled 

routines. One characteristic of COMMON variables is that they are not allocated on the stack, 

and hence are not deallocated when execution of the routine where they are declared termina- 

tes. This makes it possible to save the value of "local" variables from one activation of a 

routine to the next. Another characteristic of COMMON variables is that their extent consists 

of the execution time of the entire program. The syntax of a COMMON declaration is: | 

COMMON <identifier> ‘ <identitier> { : <type> - | 
: <identifier> }, <identifier> { : <type> i; 


An identifier may appear in only one COMMON declaration. The identifier is both the variable 
name used internally to the program and also the external name by which the implementation 
makes the COMMON variable available externally. Since the linkage editor recognizes only 
six characters, COMMON identifiers should be limited to this size. 


In order for a COMMON variable to be accessible within a routine, the routine must contain | 
an ACCESS declaration for the COMMON variable. A routine that contains a COMMON declara- 
tion must include an ACCESS declaration if it accesses a common variable. The normal scope 

rules do not apply to ACCESS declarations. Even if a routine falls within the scope of an ACCESS | 
declaration at a higher level, the COMMON variables are not accessible within the routine | 
unless an explicit ACCESS declaration appears in the routine. Each ACCESS declaration must | 
fall within the scope of the COMMON declaration of the identifier for which ACCESS is declared. | 


The syntax of an ACCESS declaration is 

ACCESS <identifier> } , <identifler> ; iw 
There is a compiler option that allows access only to those global variables that are specified 
in ACCESS declarations. When this option applies, variables named in ACCESS declarations 


are not necessarily common variables. 


COMMON declarations accomplish the fcllowing purposes: 


4 Provide more restricted access than normal declarations. | 
= Enable variables to be shared with external routines such as FORTRAN routines. | 
. Provide an extent for variables greater than the duration of execution of the routine | 


in which they are declared. 
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Example: 


PROCEDURE P 
COMMON X : INTEGER 
PROCEDURE Q 
VAR Y : INTEGER 
PROCEDURE R 
ACCESS X 
PROCEDURE S 


The COMMON variable X is accessible only within the body of routine R since no other proce- 
dure has an ACCESS declaration. 


The next example illustrates the correspondence between a FORTRAN named common block 
and a Pascal common variable. 


FORTRAN: 
COMMON /TAB/ I, X, M(5) 


PASCAL: 
COMMON TAB : RECORD 
|: INTEGER; 
X 3: REAL; 
M: ARRAY[ 1..5] OF INTEGER 
END 


In FORTRAN, the single external name TAB is associated with the block of variables |, X, 
and M. Since each individual common variable in Pascal corresponds to a common block, 
this example uses a record with three fields to achieve the same effect as the FORTRAN 


declaration. 


Pascal /0982/e 
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9 COMPILER OPTIONS 
9.1 General 


The Pascal compiler supports a set of options that control the format and content of the listing, 
options that control the content of the object file, options that control runtime checks, and 
miscellaneous options. Options may be enabled or disabled by being named in option comments. 
Certain options may be named in option comments that affect the entire program; certain 

other options may be named in an option comment at the start of a routine only; but most 
options may be named in an option comment at any point in a program at which any comment 
would be allowed. This provides a high degree of flexibility in the control of options. 


9.2 The Option Comment 
The comment that controls the enabling or disabling of an option is enclosed within braces 
(3% ). A dollar sign immediately following the left brace (or the alternate character pair (*) 
identifies the comment as an option comment. The syntax for an option comment is as follows: 
<option comment>::= " ng <option> ,<option> ute 
<option> ::= [NO] <option identifier> 
IT RESUME ] <option identifier> 
The syntax diagram is as follows: 


Option comment: 


OPTION IDENTIFIER 


The option identifier is the name of an option; one of the option names listed in table 9-1. 

Each option has a value of TRUE or FALSE, independent of the value of any other option. 

The default value which each option has at the beginning of the program is shown in table 9-1. 
The presence of an option name in an option comment sets the value of the option to TRUE, 
unless the keyword NO or RESUME precedes the option name. When the keyword NO precedes 
the option name, the value of the option is set to FALSE. When the keyword RESUME precedes 
the option name, the value of the option is set to the value the option name had upon entry 

to the routine (if the option comment is in a routine) or upon entry to the program. 
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Table 9-1. Pascal Compiler Options 
Option Name Default Value Level 
72COL TRUE Statement 
ASSERTS TRUE Statement 
CKINDEX FALSE Statement 
CKOVER FALSE Statement 
CKPTR FALSE Statement 
CKPREC FALSE Statement 
CKSET FALSE Statement 
CKSUB FALSE Statement 
CKTAG FALSE Statement 
FORINDEX FALSE Statement 
GLOBALOPT FALSE Routine 
GLOBALS FALSE Routine 
LIST TRUE Statement 
MAP FALSE Routine 
NULLBODY FALSE Routine 
OBJECT TRUE Routine 
OPTIMIZE TRUE Routine 
PAGE FALSE (Note 1) Statement 
PROBER FALSE Routine 
PROBES FALSE Routine 
ROUND TRUE Statement 
SIDEFFECTS FALSE Routine 
TRACEBACK TRUE Routine 
UNSAFEOPT FALSE Routine 
WARNINGS TRUE Statement 
WIDELIST FALSE Program 


Note: 1. PAGE has a default value of FALSE and is set to FALSE before the beginning of 
each source line. 


If a comment and an option comment are required, the comment must be entered as if the 
option comment were not there; it may not be embedded within the option comment. 


Example: 
{sList} {THIS TURNS ON THE LISTING OPTION } 


When one or more spaces separate the left brace (}) or left parenthesis and asterisk ((*, 
the alternate characters) from the dollar sign, the result is a comment, not an option comment. 
The following example has no effect on the list option: 


{suist { 


Option comments are effective within the scope of the routine within which they occur (if 
they occur within a routine). When a routine is eniered (during compilation), the values of 
options are stored. Upon exit from the routine, the stored values are restored. Thus, with 

the exception of the PAGE option, the value of an option changed by an option comment 
remains the value of that option until another option comment containing the option name 
is processed, or until exit from the routine. The PAGE option is set FALSE at the beginning 
of each source line. 
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Table 9-1 also lists the level of each option. The WIDELIST option is a program level option 
that can be changed only by entering the option comment to change it ahead of the program 
heading. The scope of the program begins at the program identifier (following the keyword 
PROGRAM in the program heading) and ends at the period that terminates the program. The 
program level options must be changed prior to the beginning of this scope. 


Routine level options may be changed prior to the program heading, following the semicolon 
that terminates the program heading or the routine heading, or immediately after the BEGIN 
keyword that begins the compound statement of the routine. The scope of a routine begins 
in the routine heading following the routine identifier and before the parameter list. The scope 
of a routine ends at the semicolon following the END keyword that terminates the compound 
statement of the routine. The following are the routine level options: 


GLOBALS MAP NULLBODY 
OBJECT PROBER PROBES 
TRACEBACK UNSAFEOPT 


The remaining options are statement level options that can be changed by a comment state- 
ment at any point in the program. 


When a comment statement names an option at a level which cannot be changed at that 
point, the option remains unaltered and a warning or error message is issued. 


9.3 Listing Control Options 


Listing control options affect the format and/or content of the compiler listing. The options 
are described in the following paragraphs. 


9.3.1 LIST Option 


The LIST option enables or disables the source listing. When the value of the option is TRUE 
(default) the compiler writes the listing of the source program. When the value of the option 
is FALSE, the compiler lists only the lines that contain errors, and the error messages. The 
LIST option is a statement level option. 


9.3.2 WIDELIST Option 


The WIDELIST option enables or disables the wide format of the source listing. When the value 
of the option is TRUE the compiler writes a source line number at the beginning of each source 
line, and a statement number at the beginning (following the source line number) of each 
statement within the compound statement of each program or routine block. When the value 
of the option is FALSE (default), source line and statement numbers are omitted. Figure 9-1 
shows a source listing with the WDELIST option enabled. The WIDELIST option is a program 
level option. 


The WIDELIST option does not control the actual width of the lines of the source listing. The 
logical record length for the OUTPUT file determines the width of the lines. When the logical 
record length is 80, the first 72 characters of the source are listed. When the logical record 

length is 88 or greater the entire source line is printed. 


9.3.3 MAP Option 


The MAP option enables or disables the inclusion of a map of identifiers in the source listing. 
When the value of the option is TRUE the compiler includes a map of variables and commons 
for each routine and for the main program at the end of each routine and at the end of the 
program. When the value is FALSE (default), the map is omitted. Figure 9-1 shows a source 
listing with the MAP option enabled. The MAP option is a routine level option. 
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As shown in figure 9-1, the map of identifiers lists the first eight characters of the variable 
name and the kind of identifier. The following kinds are displayed: 


. PARAMETER 
. VARIABLE 

: FIELD 

° COMMON 


The next column shows the size of the data item in bits or bytes. Alternatively, the column 
shows a level and displacement in the case of a dynamic array. The level and displacement 
are the level and displacement of the variable that contains the size of the dynamic array. 


The third column shows the displacement of the item in the stack frame for the routine. In 

the case of variables and parameters, the displacement is a hexadecimal value. In the case 

of a field, the displacement is in bytes and bits from the displacement of the record that inclu- 
des the field. 


The fourth column may contain either DIRECT, INDIRECT, or PACKED. DIRECT identifies vappies 
and value parameters. INDIRECT identifies reference parameters. PACKED identifies fields 
of packed records, 


The fifth column applies only to packed fields and shows the order of the packing of the fields 
by identifying the bit positicns of the field with Xs. 


9.3.4 PAGE Opticn 


The PAGE option provides a means of forcing a new page in the listing. When the value of 
the option is TRUE, the compiler performs a new page operation and writes the next line at | 
the top of the new page. The compiler also sets the PAGE option to the FALSE value. When | 
the value of the option is FALSE (default) the compiler does not perform a new page operation | 
unless the current page has been filled. The PAGE option is a statement level option, 


9.3.5 WARNINGS Option 


Tne WARNINGS option enables or disables the listirig of warning messages by the compiler. 
When the value of the option is TRUE (default) the compiler includes warning messages with 
the source lines of the listing. When the value of the option is FALSE, the compiler omits vo: 
nirig messages in the listing. The WARNINGS cption is 4 statement level option. 


9.3.6 SIDEFFECTS Option 


Paragraph 8.8 gives a description of function side effects. When the value of the SIDEFFECTS 
option is FALSE (default), the Pascal compiler gives a warning message when a function has 

side effects. When the value is TRUE, the warning message is disabled for the given function. | 
The WARNINGS option overrides this option, i.e., if NO WARNINGS is specified, then side effects | 
warning messages are not produced. 


9.4 Object Code Options 


Object code options affect the content of the object code file. The options are described 
in the following paragraphs. 


9.4.1 OBJECT Option 


The OBJECT Option enables or disables writing of the object code file for one or more blocks 
of the program. When the value of the option is TRUE (default), the compiler writes the object 
code. When the value of the option is FALSE, the compiler does not write object code. The 
OBJECT option ts 4 routine level option. 
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(#$790,MAP,N0 OPTIMIZE,WIDELIST*) 


FROGRAM DIGIOs 


CF CHAR: 


TYPE CHBLIF = ARRAY(.1..46.) 
VAR BUFF = CHBELIF S$ 
IT, NLIM : INTEGERS: 


PAGE 


“PREPROC 


PROCEDURE GCHAR (BLUFF: CHBLIFs VAR NLM: INTEGERS I: INTEGER) § 


BEGIN (# CCHAR #) 
NLM? =03$ 


LEVEL (DT SFL) 


FARAMETER (2, 
VARIABLE (2 


REGIN (*# TIGA #) 


Oo) 
) 


HOODS 
HOOLA 


WRITFIN¢C FNTER 1 TS DIGITH 33 


RESET CINFLUT) $ 

T:=J+13 

WHILE NOT Frinw mo RE 
READ (BIUIFF(.I.))3 
I: [413 

END (2 TNFUT CHARS 

I s= J=13 

CCHAR CBLIFF, NLM, 1) 3 

NUIM: =NLIMGA OS 

TINT ONLI) $ 

WRITELN: 

END. 


HIN 


*) 


(# 


INFVIT CHARS 


FOR J:= 1 TO I DO 
IF BUFF(.JI.)>="O° AND BUFF(..)c=°9° THEN 
NUM: =NLIMN#1O+0R0 (BUFF (C..1.))-ORDC O°) 
ENDS 
OF IDENTIFIERS FOR CCHAR 
IER WAME KIND SIZE STACK 
(BYTES, BITS) DISFLACENENT 
LEVEL (DISPL) (BYTE, BIT) 
PARAMETER (12,0) #HOOZS DIRECT 
PARAMETER (2,0) #0034 INDIRECT 
FARAMETER (2,0) HOOBSE DIRECT 
PROCEDURE CINT (NLIM: INTEGER) 3 
VAR I : INTEGERS 
BEGIN (# INT #) 
I:=NUIM DIV 103 
IF I <> © THEN CINT(CI)3 
WRITE (CHR(ONUM mon 10 + ORO(-O7))) 
END 
OF IDENTIFIERS FOR CINT 
IER NAME HINT SEIZE STACK 
(RYTES, BRITS) DTSELACEMENT 


(BYTE. RIT) 


NIRECT 
NIRECT 


*) 


FICTURE 
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DIGI 
MAF OF IDENTIFIERS FOR DIGIO 
IDENTIFIER NAME KIND SIZE STACK 
(BYTES, BITS) DISPLACEMENT 
LEVEL(DISPL) (BYTE,BIT) 
RUFF VAR TABLE (12,0) HOODEO DIRECT 
I VARIABLE (2,0) #0080 DIRECT 
NLM VARIABLE (2,0) #O058E DIRECT 
MAXIMLIM NUMBER OF IDENTIFIERS USED = 14 
DIXPSCL 1.46.0 79. 305 OPTIMIZATION SUMMARY 


APPROX, 3500 BYTES OF HEAF 


AFPROX. S200 BYTES OF HEAF 


APPROX, 3800 BYTES OF HEAF 


INSTRUCTIONS = 33 
COHAR LITERAL = 


INSTRUCTIONS: = 
INT LITERAL: = 


INSTRUCTIONS = 
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9.4.2 NULLBODY Option 


The NULLBODY option enables or disables writing of the object code corresponding to the 
compound statement of a routine or program and its component statements. When the value 
of the option is TRUE, the compiler does not write a module. When the value of the option 

is FALSE (default), the compiler writes object code. The NULLBODY option should not be 

set to TRUE in a user program. It is used in separate compilation under control of the configu- 
ration processor (Section 12). The NULLBODY option is a routine level option. 


9.4.3 TRACEBACK Option 


The TRACEBACK option enables and disables the writing of traceback data in the object 
code. When the value of the option is TRUE (default), the compiler includes the routine name 
and its static nesting level with the object code for use when tracing the events involved 

in an error that causes termination of execution of the program. When the value of the option 
is FALSE, the compiler omits this data which reduces the length of each module by 6 words. 
The TRACEBACK option is a routine level option. 


9.4.4 ASSERTS Option 


The ASSERTS option enables or disables the insertion of object code corresponding to ASSERT 
statements into object files. When the value of the option is TRUE (default) the compiler supplies 
code to implement any ASSERT statements in the program. When the value of the option 

is FALSE the compiler ignores ASSERT statements. The ASSERTS option is a statement level 
option. 


9.5 Runtime Check Options 


Runtime check options control the insertion of code in object files to enable checks of program 
execution at runtime. The options are described in the following paragraphs. 


9.5.1 CKINDEX Option 


The CKINDEX option enables or disables checking of indexes of arrays. When the value of 
the option is TRUE, the object code includes code that checks that array indexes are within 
the specified range at execution time. When the value of the option is FALSE (default), array 
indexes are not checked at runtime. The CKINDEX option is a statement level option. 


9.5.2 CKOVER Option 


The CKOVER option enables or disables checking for overflow when evaluating INTEGER, 
LONGINT, DECIMAL, and FIXED type expressions. When the value of the option is TRUE, the 
object code includes code that checks for overflow at execution time. When the value of 
the option is FALSE (default), overflow is not checked at runtime. The CKOVER option is a 
statement level option. 


9.5.3 CKPREC Option 


The CKPREC option enables or disables checking for loss of most significant precision during 
conversion of DECIMAL and FIXED types. When the value of the option is TRUE, the object 
code includes code that checks for loss of the most significant digit during conversion at 
execution time. When the value of the option is FALSE (default), the results of conversion 
are not checked at runtime. The CKPREC option is a statement level option. 
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9.5.4 CKPTR Option 


The CKPTR option enables or disables checking for NIL values of variables of pointer type 

at execution time. When the value of the option is TRUE, the object code includes code that 
checks for a pointer value of NIL when a pointer is used to access data at execution time. 
When the value of the option is FALSE (default), no check of pointer values is made at runtime. 
The CKPTR option ts a statement level option. 


9.5.5 CKSET Option 


The CKSET option enables or disables checking of set element expressions. When the value 

of the option is TRUE, the object code includes code that checks that a set element is within 
the range of the base type at execution time. When the value of the option is FALSE (default), 
no check of set elements is made at runtime. The CKSET option is a statement level option. 


9.5.6 CKSUB Option 


The CKSUB option enables or disables the checking of subrange assignments and results 

of PRED and SUCC functions. When the value of the option is TRUE, the object code includes 
code that checks that values are within bounds following assignments or execution of the 
PRED or SUCC function at execution time. When the value of the option is FALSE (default), 
no check of assignments or results of these functions are made at runtime. The CKSUB option 
is a statement level option. 


9.5.7 CKTAG Option 


The CKTAG option enables or disables the checking of the tag fields of record variants. When 
the value of the option is TRUE, the object code includes code that checks that references 
to variant parts are consistent with the values of their tag fields at execution time. When 

the value of the option is FALSE, no checks on variant part references and tag fields are 
made. The CKTAG option is a statement level option. 


9.5.8 PROBER Option 


The PROBER option enables or disables a summary of the number of executions of each 
routine and of the main block of the program. When the value of the option is TRUE, the object 
code includes calls to the performance probe handler at entry and exit of each routine at 
execution time. When the value of the option is FALSE (default), the program does not call 

the performance probe handier. The PROBER option is a routine level option. 


When the PROBER option is set to TRUE for one or more routines or for the entire program, 
the linked object must include library members PRBSINIT, PRB$ TERM, and PRBS$PERF. Refer 
to linking information for the appropriate operating system in Section 14. 


The performance probe handler maintains a count of the number of executions of each routine 
and of the main program (when option PROBER is TRUE throughout the scope of the program). 
At the completion of execution of the program, the performance probe handler writes a display 
to textfile OUTPUT as shown in figure 9-2, The display lists the number of executions of each 
routine and of the main program. 
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PERFORMANCE FROBE nATA 


ROUTINE NAME NUMBER OF EXECUTIONS 
CTHAR i 
CINT 5 
DIGIC 1 
cOoOMPLETENES S&S PROBE DATA 
ROUTINE NAME #PROBES. ZACTIVATED INACTIVE PROBES 
CHAR 4 75 3 
CINT 2 100 
DIGIO 2 100 


TOTAL NUMBER OF PROBES = © 
TOTAL NUMBER OF ACTIVATED PROBES = 7 
% OF PROBES ACTIVATED = 57 


Figure 9-2. Execution Time Displays for PROBER and PROBES Options 


9.5.9 PROBES Option 


The PROBES option enables or disables a summary of usage of the paths of each control 
structure. When the value of the option is TRUE, the object code includes a call to the com- 
pleteness probe handler at each path of a CASE, FOR, IF, REPEAT, and WHILE statement. 
When the value of the option is FALSE (default), the program does not call the completeness 
probe handler. The PROBES option is a routine level option. 


When the PROBES option is set to TRUE for one or more routines or for the entire program, 
the compiler writes a probes table for each routine in the source listirig. Figure 9-3 shows 

a source listing for which the PROBES option is true. The probes table includes a line for 

each call to the completeness probe handler, showing a probe number, the scurce line number 
to which the probe applies, and the probe type. The probe type identifies the control struc- 
ture and the path to which the probe applies. Note that an ELSE path is identified for each 

IF statement whether or not the ELSE clause appears in the IF statement. This path is taken 
when the expression of the IF statement Is not true. 


When the PROBES option is set to TRUE for one or more routines or for the entire program, 
the linked object must include library members PRBSINIT, PRBSTERM, and PRB$COMP. Refer 
to linkirig information for the appropriate operating system in Section 14. 


The completeness probe handler monitors the executicn of the program, making note of each 
path of a CASE, FOR, IF, REPEAT and WHILE statement that is taken within those routines 
for which PROBES is TRUE. When executicn of the program completes, the completeness. 
probe handler writes a display to textfile CUTPUT as shown in figure 9-2. The display lists 
the number of probes, the percentage of usage of the probes, and the probe numbers of 
inactive (unused) paths for each routine and for the main program, The display also shows 
the total number of probes, the number activated (paths taken), and the percentage of usage 
of the probes. 
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OIGI FAGE 
(#$770,NC OPTIMIZE, PROBER, PROBES ) "PREPROC 77, 342 
PROGRAM DIGIC; 

TYFE (CHBLUF = ARRAY(.1..4.) OF CHAR: 
VAR BLIFF : CHBLIF 5 
I,NUM : INTEGERS 


PROCEDURE COCHAR (BUFF: CHBLIF; VAR NUM: INTEGER: I: INTEGER); 
REGIN (# COCHAR #) 
NLM: =03 
FoR J:= 1 To I Do 
IF BUFF(.J.)2=°0O° AND BUFF (J. )<=°9" THEN 
NUM: =NUM#10O+0R0(BLIFF(.U.))-ORD(“O7) 
PROBES FOR CCHAR 
FROBE NUMBER LINE NLIMBER FROBE IND 


1 3 FoR Lor 
2 4 IF THEN 
= & IF ELSE 
~ & FOR END 

ENTMI; 

PROCEDURE CINT (NUM: INTEGER); 

VAR I : INTEGER; 


REGIN (# CINT #) 
T?=NUM DIV 103 : 
IF I <> © THEN CINT(I)3 
WRITE (CHRCNUM MOD 10 + GROC“O"))) 
FROBES FOR CINT 
FROBE NUMBER LINE NUMBER PROBE KIND 
1 cc IF THEN 
2 4 IF ELSE 
ENTs 
REGIN (# DIGI #) 
WRITELN( “ENTER | TO 5 DIGITS )3 
RESET CINFLIT) 3 
seI+]3 
WHILE NOT ENLN DC BEGIN (* INFUT CHARS *) 
READ (BUFFC(.LI.))3 


I:= T4135 
ENDS (# INFUT CHARS #) 
I := I-13 


MECHAR CBLIFF, NLM, I) 5 

NUM s =NUIP +255 

INT CONLIM) 5 

WRITEINS 
PRORES FOR ODIGIO 

PRORE NLMBER LINE NUMBER FROBE KIND! 

1 bat WHILE LiF 
2 & WHILE F-NTI 


= 


END. 

MAXIMUM NUMBER OF IDENTIFIERS WSED = 14 

OXPSCL 1.4.0 77, 308 OPTIMIZATION SLIMMARY 

APPROX. 3200 BYTES OF HEAF SFACE WERE REGUIRED TO OFTIMIZE "CCHAR & 
APPROX. 3200 BYTES OF HEAF SPACE WERE REGUIRED TO OPTIMIZE “CINT a 


APPROX. 2200 BYTES OF HEAF SFACE WERE REQUIRED TO OPTIMIZE “DIGIO ep 


Figure 9-3. | Compiler Source Listing - PROBER and PROBES Options Enabled 
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9.6 Miscellaneous Options 


Miscellaneous options include the remaining options that are not readily categorized. The 
options are described in the following paragraphs. 


9.6.1 Z2COL Option 


The 72COL option enables or disables the 72 character limit for source program lines. When 
the value of the option is TRUE (default), only the first 72 characters of the source line are 
scanned by the compiler. When the value of the option is FALSE, all characters of the source 
line are scanned by the compiler. The 72COL option is a statement level option. 


9.6.2 FORINDEX Option 


The FORINDEX option enables or disables the issuing of warning messages when names of 
FOR control variables are identical to names of other accessible variables. When the value 
of the option is TRUE the compiler issues a warning message if the name of a FOR control 
variable is identical to the name of an accessible variable. When the value of the option is 
FALSE (default), the names of FOR control variables are not checked. The FORINDEX option 
is a statement level option. 


9.6.3 GLOBALS Option 


The GLOBALS option enables or disables a limitation of the use of global variables. When 

the value of the option is TRUE only gicbal variables that are named in an ACCESS declaration 
are accessible within a routine. When the value of the option is FALSE (default), the rules 

of scope of variables alone determine the accessibility of global variables other than COMMON 
variables. The GLOBALS option is a routine level option. 


9.6.4 ROUND Option 


The ROUND option enables or disables the rounding of results of type DECIMAL. When the 
value of the option is TRUE (default), results of type DECIMAL are rounded to the nearest 
value of the specified precision. When the value of the option is FALSE, results of type DECIQ) 
MAL are truncated to the specified precision, The ROUND option is a statement level option. 


9.7 Optimization Control Options 


Optimization control options affect the amount of optimization the compiler does during the 
compilation process. The options are described in the following paragraphs, 


9.7.1 UNSAFEOPT Option 


The UNSAFEOPT option enables or disables optimization that may only be performed correctly 
if all variables are disjoint (variables accessible by only one variable name). The UNSAFEOPT 
option allows the compiler to retain more than one variable in the registers at a time, which 
results in a significant reduction in the size of the object code for some programs. The 
UNSAFEOPT should not be specified for a program in which a variable is accessed by more 
than one name. This can occur when a routine has two parameters called by reference and 
the call specifies the same variable for both parameters. This can also occur from the use 

of the LOCATION function to access a variable. 


When the value of the option is TRUE, the optimization is enabled. When the value of the 
option is FALSE (default), the optimization is disabled. The UNSAFEOPT option is a routine 
level option. 
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9.7.2 OPTIMIZE and GLOBALOPT Options 


There are three levels of optimization, 0, 1, and 2, which are specified by two compiler options, 
OPTIMIZE and GLOBALOPT. As the level of optimization increases, the amount of object 

code is reduced at the expense of an increase in compile time and an object module which 

is more difficult to understand from a reverse assembly listing. For those reasons, it is recom- 
mended that debugging be done with the default optimization level, level 1, and recompiling 
with level 2 when ready for production use. 


The specification of the optimization level is done by setting the optimization control options 
as follows: 


Level Option Setting 

0 NO OPTIMIZE 

1 (default) OPTIMIZE NO GLOBALOPT 
2 OPTIMIZE GLOBALOPT 


OPTIMIZE and GLOBALOPT are routine level options. 
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10 FORMATTING SOURCE CODE 


10.1 General 


This section includes guidelines to follow when coding a source program, describes NESTER, 
a utility that assists in preparation of source code, and includes instructions for operating 
NESTER. 


10.2 Coding 


Typically, the Pascal source program is written on a disk file using the Text Editor. The cha- 
racters for each line of code may be entered starting at any character position, but must 
not extend beyond character position 72 if 72COL option is true. 


The MRM (Modify Right Margin) command of the text editor should be used to limit entry to 
72 columns. For an already existing program which uses 80-column records, the NESTER 
may be used with the WIDE option to convert from 80-column to 72-column format. 


As described in paragraph 3.2, there are alternate character combinations. The user may 
use the alternate characters when the source code has to be transportable to an environment 
that does not support the complete character set. 


The user may use either upper or lower case letters in the declarations and statements of 
the source program. The Pascal compiler translates lower case letters to upper case letters 
before processing the code, and therefore sees an identifier entered in lower case letters 
as identical to the same identifier entered in upper case letters. 


10.3 Source Formatter 


The source formatter (NESTER) restructures a source module to provide indentation consistent 
with the logical structure. As described in paragraph 8.6, a Pascal program is precisely struc- 
tured. The format of source lines allows indentations of the source lines that can show the 
program structure more effectively. However, entry of the source lines in accordance with 

the structure can be tedious, particularly with a VDT. NESTER accepts source code lines how- 
ever they may be indented, or without indentation, and indents the source lines in accordance 
with the logical structure of the program. 


In addition, NESTER inserts a sequence number in character positions 73 through 80 of each 
line. The sequence numbers begin at zero and are incremented by 10. 


10.3.1 NESTER Functions 


NESTER uses five parameters in establishing the source program format that corresponds 

to the logical organization of the program. These parameters and their default values, along 
with four other options, are listed in table 10-1. Two of these parameters, DTAB and CCOL, 
apply to the declarations of the program. The rules that apply to each of the declarations 
are: 


° The PROGRAM declaration begins in the leftmost character position (column 1). 
Example: 
PROGRAM RANDOM; 
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The LABEL declaration begins in the leftmost character position (column 1) and the 
label numbers follow on the same line. 
Example: 


LABEL 10,20,30; 


The CONST declaration begins in the leftmost character position (column 1) and con- 


stants are tabulated into columns separated by the value of the Constant Column 
parameter CCOL. 


Example: 
Ca 4; D=5; 
E = 6; F= 7; 


The TYPE declaration begins in the leftmost character position (column 1). The first 
type declaration follows on the same line. 


Example: 
TYPE A = ARRAY (.0..10.) OF INTEGER; 


Any subsequent type declarations are indented by the value of the Declaration Tab 
parameter DTAB. 


Example: 


TYPE A = ARRAY (.0..10.) OF INTEGER; 
B = (C,D,E); 


In a record declaration, the first field identifier follows the declaration; subsequent 
field identifiers are indented by the value of DTAB on a new line. 


Example: 


TYPE A = ARRAY (.0..10.) OF INTEGER; 

B = (C,D,E); 
REC = RECORD A:INTEGER; 

B:REAL; 

CASE C:BOOLEAN OF 

FALSE: (D:INTEGER; 
E: INTEGER); 
END; 
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When the component type of an array is a structured type, the structured type is 
indented by the value of DTAB on a new line. 


Example: 


TYPE A = ARRAY (.0..10.) OF INTEGER; 
B = (C,D,E); 
REC = RECORD A:INTEGER; 
B:REAL; 
CASE C: BOOLEAN OF 
FALSE: (D:INTEGER; 
E: INTEGER); 
END: 
MATRIX = ARRAY (.0..9.) OF 
ARRAY (.0..9.) OF 
ARRAY (.0..2.) OF INTEGER; 


The VAR declaration begins in the leftrnost character position (column 1). The first 
variable declaration follows on the same line. Subsequent variable declarations are 
indented by the value of DTAB and each starts a new line. 
Example: 
VAR ARY : A; 
1,J,K,L:INTEGER; 
R:REC; 
The COMMON declaration begins in the leftmost character position (column 1). The 
first common declaration follows on the same line. Subsequent variable declarations 
are indented by the value of DTAB and each starts a new line. 
Example: 
COMMON R:BOOLEAN; 
I: INTEGER; 
X: REAL; 
M: ARRAY 1..5 OF INTEGER; 


The ACCESS decliaraticn begins in the leftmost character position (column 1). The 
common variables follow on the same line. 


Example: 
ACCESS COM1,COM2; 


The routine declarations begin with the keyword PROCEDURE or FUNCTION in the 
leftmost character position (column 1). The parameter list follows on the same line. 


Example: 


PROCEDURE A(B,C:INTEGER); 
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Table 10-1 NESTER Options 
Option 
Keyword Meaning Default 
DTAB Declaration tab value 4 
CCOL Constant column increment 20 | 
| 
STAB Statement tab value 2 
SCOL Statement column increment 1 | 
SLIM Statement column limit 30 
AD JT Adjust comments to right margin TRUE 
FILL Allows concatenation of source lines in TRUE 
accordance with options in effect. When 
FALSE, items on a new line of input are 
placed on a new line in the output. 
CONV Convert characters in source statements FALSE 
to those of a transportable character set. 
WIDE Accept 80-column source statements. FALSE 


In addition to the rules for the declaraticns, there is a rule with respect to the breaking of 
a line in the declaration section. A line starts with the declaration keyword or an identifier 
and is usually separated from the next line with a semicolon (and the end-of-line indication 
appropriate to the input device). Wnen NESTER breaks a line, the continuation on the suc- 
ceeding line is indented by the value of DTAB. 


Two other parameters, STAB and SCOL, apply specifically to the statement portions of the | 
program, i.e., the compound statements that contain the statements that specify the proces- 
sing of the program. The rules that apply to the statement portions are as follows: 


? The BEGIN and END statements of the compound statement that contains the state- | 
ments of the block begin in the leftmost character position (column 1). | 


2 The component statements within the compound statement are indented by the value 
of STAB, ww 
a Simple statements (assignment, PROCEDURE, ESCAPE, GOTO, and ASSERT) are placed © 
on one line, tabulated into columns separated by the value of SCOL. | 
: A statement is placed on a new line if it is too long to fit on the current line. | 
: When a statement is too long for a single line, the continuation line is indented by 


the value of STAB. 


eS Structured statements other than compound statements (IF, CASE, FOR, WHILE, REPEAT, | 
and WITH) always begin on a new line. 

$ Component statements within a structured statement are indented by the value of 
STAB. 

‘i Keywords BEGIN and END do not cause indentation and normally do not begin a new 


line. 
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= Statement labels and escape labels start in character position two and may force 
the labeled statement to start a new line. 


Ss The ELSE portion of an IF statement starts a new line and is positioned at the same 
character position as the matching IF. 


° The UNTIL portion of a REPEAT statement starts a new line and is positioned at the 
same character position as the matching REPEAT. 

° Each CASE label is indented by the value of STAB. 

= Each CASE alternative statement (following keyword OTHERWISE) is indented by the 


value of STAB beyond the character position at which the keyword OTHERWISE begins. 


Option ADJT enables or disables the adjustment of comments. When the value of ADJT is 
true, (default) comments that are less than 70 characters in length are right justified on the 
line on which they are entered. Comments that are more than 69 characters in length are 
positioned to begin in character position one. Comments that cross line boundaries are not 
moved. When the value of ADJT is false, comments are not moved. 


The column limit value SLIM applies to both declarations and statements that are arranged 

in columns, Specifically, these are constants and simple statements. No constant or statement 
is started beyond the column limit. For example, the default value of 30 allows only two co- 
lumns of constants in a CONST declaration, and only as many simple statements as can be 
placed on a line without starting a statement beyond character position 30. 


The FILL option enables or disables the concatenation of characters from two or more lines 
on one line. When the value of the option is true (default), constants in a CONST declaration 
may be arranged in columns and simple statements may be concatenated on one line using 
the value of the CCOL and SCOL options, respectively. When the value of the option is false, 
constants and simple statements remain on the line on which they are entered. 


The CONV option converts the characters in source statements that are not transportable 

to characters that are more generally available. Specifically, lower case letters are converted 
to upper case characters, brackets ([ ]) are replaced with equivalent character combinations 
((. and .)), and braces (} ) are replaced with character combinations ((* and *)). 


The WIDE option accepts 80-column source statements and reformats the source code to 
72-column output. When the input source statement contains a string constant longer than 
72 characters, NESTER issues an error message. 


Figure 10-1 shows the effect of the default options on the statement portion of a routine. 
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BEGIN I:2J3 (* BEGINNING OF BODY x) 
IF I>K THEN (x IF #) 
WITH R DO BEGIN Ce WITH *#) 

B:=1.03 Cs=FALSE: Os:eKs 
EssJ: END (* WITH END «) 
ELSE (x ELSE «) 
CASE R.B OF (* CASE «) 


FALSE: FOR I:51 TO 10 DO ARY(.I.)8=13 
OTHERWISE BEGIN I:=0; 
REPEAT ARY(C.1.):207 Iselel: 
UNTIL I>2103 
END; 
ENO} (x CASE END #) 
END: (* END OF BODY »#) 


Figure 10-1. NESTER Statement Example ! 
10.3.2 NESTER Option Comment 


The values of the NESTER options are changed by entering option comments. The value supplied 
in an option comment continues to apply until another value is supplied in a subsequent option | 
comment. The option comments become a part of the source program and are processed | 
by the compiler as comments; i.e., they have no effect on compiler options. The syntax of ' 
an option comment is as follows: 

<option comment> = "{"@<option>[ ,<option>]"{" | 

<option> ::= <integer-valued option>(integer constant) | 

<Boolean-valued option><plus or minus> 
<integer-valued option> ::= DTAB|STAB|CCOL}SCOL|SLIM 
<Boolean-valued option> ::= ADJT| FILL | CONV] WIDE 


<plus or minus> s:= +l- 
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The syntax diagram is as follows: 


Option comment: 


| | SCOL - 
SLIM. 


; CONV : 
WIDE 


No blanks are allowed in the option comment. The option names may be entered in any sequence. 


Examples: 


&DTAB(2),STAB(5),FILL-,SLIM(72) 
&DTAB(4),CCOL(20),STAB(2),SCOL(1),SLIM(30),ADUT+,FILL+ { 


The first example changes the value of DTAB to 2 and the value of STAB to 5. It sets the 

value of the FILL option to false, and changes the value of SLIM to 72. This value of SLIM 
allows maximum packing of constants on a single line, and the maximum packing of simple 
statements on a single line. However, by setting FILL to false, the packing allowed by the 

value of SLIM would not occur. 


The second example restores the option values to the default values. 
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10.3.3 Executing NESTER 


Pascal software includes an SCI procedure XNESTER for executing the source formatter, 
NESTER,. Enter XNESTER at any time TAXO requests a command. TAXO requests the follow- 
ing information: 


SOURCE: 

NESTED SOURCE: 
ERROR LISTING: 
MESSAGES: 
MODE: 


The first five items require access names of devices or files, as follows: 


? SOURCE - The access name of a file (batch mode) or of a library (interactive mode) 
that contains source code to be formatted. 


° NESTED SOURCE - The access name of a file (batch mode) or of a library (interactive 
mode) for the formatted source code. w 

2 ERROR LISTING - The access name of a device for listing 

© MESSAGES - The access name of a device or file for system messages. 


The MODE item is either FOREGROUND or BACKGROUND. When NESTER is executed in the 
background mode, the terminal is available for entry of other commands or for foreground 
execution of another program. The foreground mode is the default mode. When NESTER is 
executed in the foreground mode, the terminal may not be used by any program other than 
NESTER until NESTER terminates execution. 


NESTER uses five files as follows: 


OUTPUT Commands executed, and error messages 
SYSMSG System messages 

INPUT Input commands 

NESTSRC Source module to be reformatted 
NESTOUT Reformatted source module 


10.3.4 NESTER Error Messages 


NESTER checks the statements in the source file for simple syntax errors and prints error 
numbers when errors are found. The nested source code resulting from nesting source state- 
ments that contain these errors is usually incorrectly nested. For this reason, even though 

it is allowed to specify the same file or member for both source file and nested output file, 

it should not be done. If the file contains errors, the source is replaced by incorrectly nested 
source code. 


The error messages corresponding to the error numbers are listed in table 10-2. Most of the 
error numbers agree with the error number of the corresponding error used by the compiler, 
and with those of standard Pascal. 
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Table 10-2. NESTER Errors 
Number Message 


2 Identifier expected. 
4 ) expected. 

5 : expected. 

6 Illegal symbol. 

8 Of expected. 


9 ( expected, 

10 Error in type. 

11 [ expected. 

12 ] expected. 

13 End expected. 

14 ; expected. 

15 Integer expected. 

16 = expected. 

17 Begin expected. 

50 Error in constant. 

51 s= expected. 

52 Then expected, 

53 Until expected. 

54 Do expected. 

55 To/down expected. 

58 Error in factor. 
106 Number expected. 
201 Error in real constant; digit expected. 
202 String constant too long or crosses a card boundary. 
255 Too many errors in this source line. 


10.3.5 NESTER Example 


Figure 10-2 shows the contents of the nested output file written by NESTER using default 
option values, 
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PROGRAM LABELS; 

CR nn an nn wn nw wn nw nw nw nn on ee oe = 
PROGRAM LABELS; 09000030 
PURPOSE + THIS PROGRAM READS AN ADDRESS LABEL AND PRINTS MULTIFLE 00000040 
COPIES OF THAT LABEL. Q00L000S0 
FILES WSED: INPUT - FOR USER-SUPPLIED PARAMETERS AND THE LABEL 00000060 
CPTFIL - USED FOR PROMPTING INPUT 00000070 
OUTPUT - MULTIPLE COPIES OF THE LABEL Q0000030 
PROCEDURES CALLED : INTERACT, READANDPRINT OOD00OFO 
ST TE RN ERR Te ome SOUR a ne ne ee mm mn me HH) OOOO 100 
VAR CRTIFIL =: TEXT 3 (#USED TO PROMPT INFUT*#) COOOO11O 
CHARSPERLINE : INTEGER; (#NUMBER OF CHARACTERS FER LINE#) 00000120 
LINESPERLABEL : INTEGER; (*#NUMBER OF LINES PER LABEL*) 009000130 
COPYCOUNT =: INTEGER; (#NUMBER OF COFIES TO FPRINT#) 00000140 
PROCEDURE INTERACT; 00000150 
( he  erretitoreoneneny ee ee LO NT oo on a a om er ee eee ee eo ee em cen 90000160 
PROCEDURE INTERACTS 90000170 
FURPOSE : INTERACT PROMPTS THE USER, REQUESTING CERTAIN INPUTS. 00000150 
OUTPUTS : CHARSPERLINE —- NUMBER OF CHARACTERS PER LINE 00000190 
LINESPERLABEL - NUMBER OF LINES PER LABEL 00000200 
COPYCGUNT - NUMBER OF LABELS TO PRINT 00000210 
--------- Se a ee oe eene meenemenem an mmemenn em eo aan ae eae ein aan ae mew ae om om ee oe ae ma ee #) 00000220 
BEGIN (*# INTERACT *) OO0002S50. 
REWRITE( CRTFIL )$ 00000240 
WRITELN( CRTIFIL, “HOW MANY CHARACTERS PER LINE?’ )3 00000250 
RESET( INPUT): READ( CHARSPERLINE )3 VO00002Z60 
WRITELN( CRTFIL: “HOW MANY LINES PER LABEL?” )+ Q9000270 
READLN: READ( LINESPERLABEL )3 OOQ00280 
WRITELN( CRTFIL, “HOW MANY LABELS?”° )3$ OOOOOLIO 
READLN;: READ( COPYCOUNT ): WRITELN(CRTFIL, “NOW INFUT THE LABEL”); O000200 
END; (# INTERACT) 00000310 
PROCEDURE READANDPRINTS ; 00000320 
( re es ene RR SN ONS EES EET EES OD OO IED eae eine an men en.aer --<—-~ O0000S30 
OOO003S40 


PROCEDURE READANDF RINT; 
PURPOSE : READANDPRINT READS A LABEL AND PRINTS MULTIPLE COPICS oF IT. 00000250 


PROCEDURES CALLED : GETLINEs PRINTLABEL QOOONS40 
ERE SAREE EEE Re Se RNY ASR IS OO SO PD a ne re HH ) OOOOOSTO 
TYPE OOOOUZEO 

LINE = PACKED ARRAY (.1..CHARSPERLINE.) OF CHAR: YOOOON370 
VAR 0000400 
LABELIMAGE : ARRAY (.1..LINESPERLABEL.) UF LINE: OVOOO4SLO 
PROCEDURE GETLINE(VAR THISLINE : LINE); OOOOO4 ZO 
( He eee ene — eae ee oe a ea em em rt rr OOOOV4 20 

PROCEDURE GETLINE: 90000440 

PURPOSE : GETLINE READS A SINGLE LINE OF A LABEL. OUO004SSO 

INPUTS : CHARSFPERLINE - NUMBER OF CHARACTERS FER LINE 00000460 

OUTPUTS : THISLINE - THE LINE THAT WAS READ. 00000870 
arene ene: we a COONS SO 
VAR CH : INTEGER: VOQOOS TM 
BEGIN (#GETLINE*) OOOOOSO 

READLN: CH ¢= 13 OOQOUS1LE 

WHILE CH <= CHARSPERLINE AND NOT EOLNCINFLUT) DO BEGIN OVOIGTLO 

READ( THISLINE(.CH.) )3 CH '= CH + 13 VOOOUS.20 
ENDS (@FILL IN REET OF LINE WITH BLAND) OOOUTaO 

FOR J := CH TO CHARSPERLINE [td THISLINE(.1.) t= $ OUUGUS Eo 
ENDSs (#GETLINE®) OOO ) 
PROCEDURE PRINTLABEL: OOOO ’ 
( #—-—— — — a rns OOO ) 


IO 


PROCEDURE -PRINTLABEL§ 000 OIE 


PURPOSE : PRINTLABEL FRINTS ONE COPY OF THE LABEL. QOL 
INPUTS =: LINESPERLABEL - NUMBER OF LINES PER LAKEL OO VAGLO 
CHARSFERLINE - NUMBER CF CHARACTERS FER LINE YONUOLIO 


Figure 10-2. NESTER Example (Sheet 1 of 2) 
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LABELIMAGE - THE LABEL TO BE PRINTED 


BEGIN (#PRINTLABELS) 
FoR L t= 1 To LINESPERLABEL DO BEGIN 
FOR CH == 1 TO CHARSPERLINE DO WRITE( LABELIMAGE(.L.)(.CH.) 03 
WRITELNs ENDS 
ENDS 5 (#PRINTLABEL *®) 
BEGIN (#READANDPRINT#) 
FOR L t= 1 TO LINESPERLABEL DO GETLINE( LABELIMAGE(.L.) )5 
FOR & t= 1 To COPYCOUNT DO FPRINTLABEL? 


ENDS ( *READANDFRINT«) 

BEGIN (*LABELS* ) 
INTERACT: READANDPRINTS 

END. (*#LABELS+) 


Figure 10-2. NESTER Example (Sheet 2 of 2) 
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Q0000670 
QU00O430 
9OOO0670 


00000740 
00000750 
90000740 
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11 THE PASCAL COMPILER 
11.1 General 
The Pascal Compiler consists of six separate tasks: 


1. PREPROC - preprocesses the source file to provide conditional compilation and copy 
file processing. 


2. SILT1 - Source-to-intermediate-Language-Translator 
3. SILT2 - Source-to-intermediate-Language-Translator 
4. T9OPT - performs optimization on the intermediate language 


5. CODEGEN - translates the intermediate language into object code 
6. PSCLXREF - provides a cross reference listing of the Pascal source. 


This section describes 1) the general flow of execution and the files used by the compiler 
tasks during a compilation, 2) the source management directives supported by the preprocessor 
task, 3) the TAXO procedures needed to invoke the compiler, 4) the compiler listing, and 
5) the compiler message file contents. 


11.2 Compiler Execution Overview 


The flow of execution and the files used by each task of the compiler are described in the 
following paragraphs. Table 11-1 shows the files required by the compiler tasks. 


11.2.1 PREPROC 


The first task of the Pascal compiler is the preprocessor task, PREPROC. This task, at the 
user's option implements conditional compilation and copy statements. It has one input and 
two outputs. The file INPUT contains the user source file to be compiled. PREPROC creates 
the listing file OUTPUT and the PREOUT file which is the source file after it has been prepro- 
cessed. It also writes information to the SYSMSG file. 


11.2.2 SILT1 


SILT1 parses the source statements and translates them into an intermediate representation 
that is used as input to SILT2. SILT1 reads the source program from file PREOUT and writes 
the intermediate (token) representation on file TOKENS, SILT1 detects syntax errors and writes 
information about any errors detected on file ERRFILE to be included in the listing written 

by SILT2. The character strings for each identifier are written to the IDFILE and the listing 
page-header information is written to LISTFILE. SILT1 also writes the first eight characters 

of the name of each routine on file SYSMSG for display. 


Task 


PREPROC 


SILT1 


SILT2 


T9OPT 


CODEGEN 


PSCLXREF 


* Files marked with an asterisk are internal temporary files. 


Files Required by the Compiler Tasks 


File Name 


INPUT 
PREOUT 
SYSMSG 


PREOUT 

OUTPUT 

SYSMSG 
* TOKENS 
* ERRFILE 
*IDFILE 
*LISTFILE 


PREOUT 

OUTPUT 

SYSMSG 
* TOKENS 
* ERRFILE 
* CILFIL 
* DESCFIL 
*IDFILE 
*LISTFILE 


OUTPUT 
SYSMSG 
* CILFIL 
* DESCFIL 
*LISTFILE 


OBJECT 
OUTPUT 
SYSMSG 
* CILFIL 
* DESCFIL 
* TMPFIL 
*LISTFILE 


PREOUT 
OUTPUT 
SYSMSG 
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0O00000~ 


O00”  00O~ 


<- 
O 


OO” 


File Usage 


Pascal Source Program 
Preprocessed Source 
Messages 


Preprocessed Source 

Used as dump file 

Messages 

Parse Tokens (input to SILT2) 
Syntax errors (input to SILT2) 
Identifiers (input to SILT2) 
Page header information 


Preprocessed Source 

Source Listing with errors 
Messages 

Parse tokens 

Syntax errors 

Common Intermediate Language 
Module descriptor file 

Identifiers 

Page header information 


Optimization Information 
Messages 

Common Intermediate Language 
Module descriptor file 

Page Header Information 


Object file 

Codegen Summary Information 
Messages 

Common Intermediate Language 
Module descriptor file 

Internal temporary file 

Page Header Information 


Preprocessed Source 
Cross reference listing 
Messages 


i 
| 
i 
| 
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11.2.3 SILT2 


SILT2 transforms the intermediate representation on file TOKENS into an intermediate language 
which it writes on file CILFIL as input to T9OPT. SILT2 also writes a descriptor file, DESCFIL, 
for input to T9OPT. SILT2 detects semantic errors in the source program, and writes a source 
listing. Any errors written to ERRFILE by SILT1 are combined with any error detected by SILT2, 
and are written to file OUTPUT. Also written to file OUTPUT, is the source code from file 
PREOUT, the listing page-header information from file LISTFILE, and the variable map that 
uses the character strings of file IDFILE. SILT2 writes the first eight characters of the name 

of each routine on file SYSMSG, and writes an error message when any errors have been 
detected by either SILT1 or SILT2. 


11.2.4 TIOPT 


T9OPT performs optimization functions on the CILFIL using the descriptions on the DESCFIL. 
Optimization information and listing page-header information from LISTFILE is written on file 
OUTPUT and the first eight characters of each module name is written on file SYSMSG. 


11.2.5 CODEGEN 


CODEGEN transforms the intermediate language on CILFIL into object code using the descrip- 
tors on DESCFIL, and writes the object code to a sequential file, OBJECT. CODEGEN writes 

to an internal temporary file, TMPFIL, from which it retrieves the data when required. CODEGEN 
completes the listing on file OUTPUT by writing statistical information such as the number 

of instructions generated and the storage requirements for each module. CODEGEN also writes 
the first eight characters of each module name on file SYSMSG. 


11.2.6 PSCLXREF 


PSCLXREF scans the PREOUT source file and produces a cross reference listing which is 
written to the OUTPUT file. It also writes information to file SYSMSG. 


11.3 Source Management Directives 


The preprocessor task has five source management directives that provide conditional com- 
pilation and file insertion capabilities. These directives are placed in the source file being 
compiled. Each directive begins with a "?" in column 1 which is immediately followed by the 
directive in capital letters. The five directives are COPY, SET, IF, ELSE, and ENDIF. Each 
directive and its parameters must fit on one, 72-column record. 


11.3.1 COPY Command 


The COPY command allows the programmer to combine several source files together into 

one file as input to the compiler. The syntax of the COPY command is "?COPY" in columns 

1 through 5 with a TAXO file pathname beginning in column 6 or greater. The TAXO file path- 
name is terminated by a blank, double quote, or semicolon. One level of synonym substitution 
is performed on the TAXO file pathname. A comment can be added after the end of the TAXO 
file pathname. 


?COPY <TAXO pathname> <optional comment> 
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11.3.2 Conditional Source 


Before describing the syntax of the four remaining commands, two terms require definition. 
The two terms are "identifier" and "expression". The preprocessor defines an identifier as 

any character string that does not contain a blank, double quote, equal sign, or semicolon. 
The length of an identifier is limited only by the space available on a single line for the prepro- 
cessor command. The identifiers TRUE and FALSE are always defined for the preprocessor. 
The identifier TRUE has the Boolean value true and the identifier FALSE has the Boolean 

value false. If an undefined identifier is encountered during expression evaluation, then the 
identifier is assigned the Boolean value false. 


An "expression" contains identifiers and the keywords NOT, AND, and OR. The keywords 

NOT, AND, and OR must appear in all capital letters. An element of an expression is an identifier 
or an identifier preceded by the keyword NOT, An expression is one element or more than 

one element joined together by AND or OR. The keyword NOT applies to the identifier imme- 
diately following NOT. The keywords AND and OR are of equal precedence and are processed 
left to right. 


An expression is terminated by a semicolon, double quote, or a blank not followed by keywugy 
AND or OR. A comment may be added after the end of the expression. 

11.3.2.1 ?SET 

The SET command allows the programmer to initialize the Boolean value of an identifier. The 
syntax of the SET command is "?SET" in columns 1 through 4. The identifier to be initialized 
will begin in column 5 or later and is separated from the expression defining the initial Boolean 


value by the equal sign. 


?SET <identifier> = <expression><optional comment> 


11.3.2.2 IF 

The IF command allows the programmer to define a block of source code, which is to be 
included if the expression in the IF command evaluates to true. The syntax of the IF command 
is "?IF" in columns 1 through 3. An expression occurs after column 3. This expression defines 
the user's conditions for including the source code in the compilation. ww 


?IF <expression><optional comment> 


11.3.2.3 7ELSE 

The ELSE command is paired with an IF command. The ELSE delimits the block of source 

code, which is to be included if the "expression" on the IF command evaluated to false. The 
ELSE command is optional. The syntax of the ELSE command is "?ELSE" in columns 1 through 5. 


?ELSE <optional commeni> 


11.3.2.4 ?ENDIF 


The ENDIF command must be paired with an IF command. The ENDIF defines the end of the 
block of source code under control of the expression of an IF. The ENDIF commanc terminates 
the block defined by an ELSE command as well as the block defined by an IF. The syntax 

of the ENDIF command is "?ENDIF" in columns 1 through 6. 


?ENDIF <optional comment> 
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11.3.3 Nesting Commands 


The copy file invoked by a 7?COPY may contain additional copy commands. Copy commands 
may be nested a maximum of 12 levels. 


The ?IF may be nested inside of another 7IF similar to copy commands. The preprocessor 
pairs ?7ENDIF with the most recently unmatched 7?IF (see figure 11-1). 7IF's may be nested 
a maximum of 88 levels. 


11.4 SCI Procs 


There are five procedures which invoke phases of the Pascal compiler. These procs are; 
XTIP, XSILT, XCODE, XPP, and XPX. 


?SET FLAG1 = TRUE set FLAG1 to true 
?SET FLAG2 = FALSE set FLAGZ2 to false 
?SET FLAG3 = NOT FLAG1 OR FLAG2 set FLAG3 to false 


?IF FLAG2 include source following IF if FLAG2 is true 
This line is not included since FLAG2 is false 


?IF FLAG? ignore this IF since FLAGZ2 is false 
?ELSE ignore this ELSE since FLAGZ2 is false 
?ENDIF ignore this ENDIF since FLAGZ2 is false 
?COPY .X.Y ignore this copy since FLAGZ2 is false 


?ELSE include source following ELSE if FLAG2 is false 
This line is included since FLAG2 is false 


?IF FLAG1 process this IF since FLAG2 is false 
This line is included since FLAG1 is true 
?ELSE include source following ELSE if FLAG1 is false 
This line is not included since FLAG1 is true 
?ENDIF end block of source controlled by FLAG1 


?ENDIF end block of source controlled by FLAG2 
Figure 11-1. Conditional Source 
11.4.1 XTIP 


XTIP procedure executes the entire compilation process. The XTIP executes all six phases 
(with XREF optional) in the following order: PREPROC, SILT1, SILT2, T9OPT, CODEGEN, and 
PSCLXREF. The prompted parameters are: 


EXECUTE PASCAL COMPILER <VERSION: 1.6.0 79362> 


SOURCE: source file 

OBJECT: object file 

LISTING: | listing file 
MESSAGES: defaults to .SSYSMSGxx 


OPTIONS: 
MEM1: 6,10 SILT1 phase 
MEM2: 13,4 SILT2 phase 
MEM3: 10,8 CODEGEN phase 


The OPTIONS parameter is explained in detail in the following section. The MEM parameters 
specify the number of 1024-byte memory blocks to be allocated to the stack and heap for 
each compiler phase. The sum of the two numbers must not exceed 32 for MEM1, 21 for 
MEM2, and 20 for MEM3. 


11.4.2 XSILT 
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The XSILT procedure executes all parts of the compiler except code generation. It is primarily 
used for syntax checking. The prompted parameters for XSILT are the same as for XTIP except 


for OBJECT and MEM3: 


EXECUTE TIP SYNTAX CHECKER <VERSION: 1.6.0 79348> 


SOURCE: 
LISTING: 
MESSAGES: 
OPTIONS: 
MEM 1: 
MEM2: 


11.4.3  XCODE 


source file 
listing file 
defaults to .SSYSMSGxx 


6,10 
13,4 


SILT1 phase 
SILT2 phase 


The XCODE procedure executes just the CODEGEN phase of the Pascal compiler. The prompted 


parameters are: 


EXECUTE CODEGEN <VERSION: 1.6.0 79362> 


OBJECT: 
LISTING: 
MESSAGES; 
MEMORY: 


MODE (B,F,D): 


11.4.4 XPP 


The XPP procedure executes just the preprocessor phase of the Pascal compiler. The prompted 


parameters are: 


EXECUTE PASCAL PREPROCESSOR <VERSION 1.6.0 79362> 


INPUT: 
OUTPUT: 
LISTING: 
MESSAGES: 
OPTIONS: 


11.4.5 XPX 


The XPX procedure executes just the cross reference phase of the Pascal compiler. The 


prompted parameters are: 


EXECUTE PASCAL CROSS REFERENCE <VERSION: 1.6.0 79362> 


INPUT: source file 
OUTPUT: listing file 
MESSAGES: defaults to .SSYSMSGxx 
NUMBER OF LINES/PAGES: 60 
MODE (F,B): FOREGROUND 


11.5 "OPTIONS" Prompt 


This discussion of the "OPTIONS" prompt applies to the XTIP, XSILT, and XPP procedures, 
The prompt "OPTIONS" is used to indicate mode of execution, form of preprocessor output, 
number of lines per page, print width of a compiler line, whether to perform a cross reference, 
and to specify certain compiler options. 


ou 


object file 

listing file 

defaults to .SYSMSGxx 
10,8 | 
BACKGROUND 


source file 
preprocessed source file 
listing file 

defaults to .SYSMSGxx 
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11.5.1 Mode of Execution 


Mode of execution is indicated by entering the word "FOREGROUND" or "BACKGROUND". 
"F" or "B" is a sufficient abbreviation. This determines whether the compiler is to run in fore- 
ground or background, The default mode is background. 


11.5.2 Lines Per Page 


Number of lines per page of listing is controlled by the phrase "NUMBER OF LINES/PAGE" 
followed by an equal sign and an integer number. The default is 60. "NUM" is a sufficient 
abbreviation. For example, "NUM=80" would cause 80 lines per page to be generated. 


11.5.3 Print Width 


The print width is controlled by the phrase "PRINT WIDTH" followed by an equal sign and 
an integer number. The default is 80. "PW" is a sufficient abbreviation. For example, "PW=132" 
would cause a file to be created with a logical record length of 132 bytes. 


11.5.4 Cross Reference 


Cross reference is controlled by the word "XREFERENCE". If cross reference is desired, then 
enter the word "XREFERENCE". "X" is a sufficient abbreviation. The default is no cross refe- 
rence. 


11.5.5 Disabling Source Preprocessing 


The preprocessing of the source by the preprocessor task can be disabled by the phrase 
"NO PREPROCESSOR". "NOPR" is a sufficient abbreviation. This option allows slightly faster 
compilation when no source management directives are used. 


NOTE 


If the preprocessing of source is disabled, the following option prompts are not avai- 
lable. 


11.5.6 Controlling Preprocessor Output 


The form of preprocessor output (input to SILT1) is controlled by the phrase "SUPPRESS PRE- 
PROCESSOR LINES". Normally, preprocessor commands and code in the false clause of a 

"?IF" do not appear in the preprocessor output. If it is desired to see these lines on the compiler 
listing, then the option phrase "SUPPRESS PREPROCESSOR LINES=NO” can be entered to 
cause these lines to appear. "SUP=N" is a sufficient abbreviation of the controlling phrase. 

This option is not available if "NO PREPROCESSOR" has also been specified. 
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11.5.7 Compiler Options in the Proc 


Certain compiler options can be specified on the OPTIONS prompt unless "NO PREPROCESSOR" 


is also specified. The following compiler options can be specified on the OPTIONS prompts: 


NO ASSERTS FORINDEX NO LIST 
NO WIDELIST NO WARNINGS SIDEFFECTS 
NO GLOBALOPT MAP NO MAP 
NO OPTIMIZE PROBER PROBES 
NO TRACEBACK UNSAFEOPT WIDELIST 
GLOBALOPT CKINDEX CKOVER 
CKPREC CKSET CKSUB 
CKTAG CKPTR 


These compiler options are inserted into the source as the first line of the source file. The 
total number of characters that can be inserted into the source file is 46 characters. The 
compiler options can be abbreviated according to the rules for abbreviating SCI parameters. 
"NOA" is a sufficient abbreviation for "NO ASSERT". The 46-character limit applies to the 
unabbreviated form of the compiler option separated by commas. The compller options speci 
fied in the procedure should be limited to prevent synonym table overflow. 


In the example below, the user specifies execution in foreground, a cross reference, 80 lines 
to a page, to see the preprocessor commands, and Pascal compiler options WIDELIST, UN- 
SAFEOPT, and SIDEFFECTS. Note that the OPTIONS prompt is order independent. 


OPTIONS: X,NUM = 80,WIDE,SUP = NO,F,UNSAFEOPT,SIDEFFECTS 


11.6 Error Handling 


Each task of the compiler sets a condition code, assigning the code as the value of synonym 
$$CC. The code is zero for normal termination and a nonzero value for abnormal! termination. 
Specifically, values of $$CC following execution of the compiler have the following signifi- 
cance: 


>0000 No errors or warnings 
>4000 Warnings issued 


>6000 Nonfatal errors detected ww 


>8000 Fatal errors detected 
>C000 Abnormal termination - compiler terminated with runtime error 


Condition code synonym $$CC may be tested in a batch stream to alter the execution of 

the batch stream when an error is detected. The value placed in $$CC is only valid following 
the execution of the compiler (prior to execution of TAXO utilities that set $$CC). Its value 
may be stored in another synonym by setting that synonym to the value of @$CC with an 
-SYN SCI primitive. An attempt to determine the value of $$CC by executing an LS command 
always shows the value of $$CC as zero because the LS command utility sets $$CC to zero. 


The compiler categorizes errors as warnings, nonfata! errors, and fatal errors. A warning is 

@ syntax error that SILT corrected, or an irregularity that may or may not actually be an error. 
A nonfatal error is an error that does not prevent CODEGEN from writing an object module 

or modules for the program. A fatal error is one that causes SILT2 to produce incorrect inter- 
mediate language; if CODEGEN executes, the resulting object module will issue a runtime 
error when It is executed, 


The Pascal error messages are listed in Appendix E. 


——————————— 
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11.7 Pascal Compiler Listing 


The Pascal compiler listing is divided into five parts. The five parts are preprocessor Summary, 
source listing with errors, optimization summary with symbol map, CODEGEN summary, and 
cross reference. 


11.7.1 Preprocessor Summary 


The preprocessor summary consists of echoed TAXO procedure parameters, copy command's 
pathnames, and preprocessor error messages. A sample preprocessor summary is shown in 
figure 11-2. 


PREPROC 1.6.0 79.348 PASCAL PREPROCESSOR 


SOURCE = .SOURCE.IN1 

OBJECT = .OBJECTO4 

LISTING = .SOURCE.LIST 

MESSAGE = .SOURCE.MSG 

MEM 1 = 6,10 

MEM2 = 13,4 

MEM3 = 10,8 

PRINT WIDTH = 80 

NUMBER OF LINES/PAGE = 60 
OPTIONS = (*$990,WIDELIST,MAP*) 
SUPPRESS PREPROCESSOR LINES = YES 


LINE NUMBER COPY FILE PATHNAME 
3. .SOURCE.COPY1 
3 eSOURCE.COPY2 
3 eSOURCE.COPY3 
6 -SOURCE.IF 1 


Figure 11-2. Preprocessor Listing 


11.7.2 Source Listing With Errors Generated by SILT2 Phase 


The source listing with errors is the section of the listing controlled by the "LIST" option. For 
more information on the "LIST" option, see paragraph 9.3.1. 


SILT2 attempts to list an error number on the line immediately following the line that contained 
the error. However, since certain errors such as "semicolon expected" may not be detected 
until the first symbol on the next line has been scanned, there are a few cases for which 

the error is indicated one line too late. There are other cases in which the compller is not 
able to identify the actual error; subsequent code appears to be in error because of an error 
in preceding code. Syntax errors are shown in form !n in which n is the error number. The 
exclamation point is positioned as closely as possible beneath the symbol in error. Semantic 
errors are shown in the form **** ERROR #n **** at the beginning of the line following the 
line on which the error occurs. The message cannot be positioned below the symbol because 
SILT2 processes an intermediate representation rather than the source code. When errors 

are detected, SILT2 writes additional error information at the end of the source listing. The 
information includes the numbers of errors in each category, and a table of error numbers 
and corresponding error messages for each number that is printed in the listing. 


Each compilation error is chained together by the line of the following form: 


LAST ERROR AT LINE 9999 ON PAGE 999 
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By starting at the end of the listing and tracing backward, the location of every compilation 
error can be quickly found. 


A section of a source listing follows that shows error chaining and the line, line 1, inserted 
by the preprocessor. Figure 11~3 shows a source listing with errors. 


SAMPLE PAGE 1 
1 (#$990,MAF,WIDELIST#) “PREPROU 79, 362 
= PROGRAM SAMPLE; 
a VAR J: INTEGER: 
4 I: 0..1000 
5 BEGIN 
HHH '14 
4 2 I= 53 | 
HHH a | | 
LAST ERROR AT LINE 5S CN PAGE 1 | 
7 3 Jt= I — 43 | 
& 4 An ee 
9 END. 


MAF OF IDENTIFIERS FOR SAMPLE 


IDENTIFIER NAME KEINE SIZE STACK PICTURE 
(BYTES, BITS) DISPLACEMENT (PACKED FIELDS ONLY) 
LEVEL (DISFL) (BYTE, BIT) 
aif VARIABLE (2,0) #OOSO DIRECT 
I +VARIABLE (0,10) #OOEZ DIRECT 
MAXIMUM NUMBER OF IDENTIFIERS USED = 4 | 
NUMBER OF ERRORS = 2 | 
LAST ERROR AT LINE 4 GN FAGE 1 
14 E “3° EXPECTED | 
Si € “:=° EXPECTED 
OXPSCL 1.6.0 79.308  OFTIMIZATION SUMMARY 
APPROX. SOOO BYTES OF HEAP SPACE WERE REQUIRED TO OPTIMIZE "SAMPLE “ 
INSTRUCTIONS = 21 
SAMPLE LITERALS = sO 6CODE = 70 TATA = Iaz 
Figure 11-3. Source Listing with Errors | 
{ 


11.7.3 Optimization Summary 


An optimization summary occurs for each program, function, or procedure that occurs in 

the source. Each optimization summary consists of two parts. The first part is a collection 

of error or informative comments. Comments beginning with ">>>>" are for the programmer's 
information. Comments beginning with "////" indicate a compiler error and "****" indicate 

a user error detected by the optimizer. 


The second part of an optimization summary is a few lines indicating bytes of heap required 
to optimize a module. 
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11.7.4 CODEGEN Summary 


The fourth part of a Pascal listing is the section generated by CODEGEN. This part also has 
a summary for each program, function, or procedure in the source. It lists the number of bytes 
of literals, instructions, and stack space the module requires. 


11.7.5 Cross Reference 


The final part of the listing is the optional cross reference. The cross reference listing is for 

the entire source module, Each symbol is listed in alphabetical order, but only the first ten 
characters of a symbol are listed. To the right of the symbol appear line numbers at which 

the symbol can be found. These line numbers match the numbers generated by the "WIDELIST" 
option in the left-most column of the source listing. The "+" after the line number indicates 
that more than one occurrence of the symbol occurs on that line. A sample cross reference 


listing follows: 


PASCAL CROSS REFERENCE UTILITY 79.348 


| 4 6 7 
J 3 7 8+ 
SAMPLE 2 
3 IDENTIFIERS 8 OCCURRENCES 


11.8 Message File Description 


The message file always indicates the amount or stack and heap used for each of the compiler 
tasks. The message file for a Pascal compilation has six sections. The first section shows 

the execution of the preprocessor and contains any error messages generated by the prepro- 
cessor. The next four sections all list the name of the program, procedure, or function after 
the module is processed. The second section shows the execution of SILT1. The third section 
shows the execution of SILT2. If compilation errors were detected, an error message will ap- 
pear before the name of the module which contains the errors, The fourth section shows 

the execution of the optimizer. The fifth section shows the execution of the code generator. 
The final section shows the execution of the cross reference task. A sample message file 


is shown in figure 11-4. 
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PREPROCE EXECUTION BEGINS 
NORMAL TERMINATION 
STACK USED = 4548 HEAP USED = 612 


SILT1 EXECUTION BEGINS 

SAMPLE 

NORMAL TERMINATION 

STACK USED = 4054 HEAP USED = 1968 


SILT2 EXECUTION BEGINS 
NONFATAL ERRORS IN ROUTINE 
SAMPLE 

NONFATAL ERRORS IN PROGRAM 
NORMAL TERMINATION 
STACK USED = 10196 HEAP USED = 1666 


T9OPT EXECUTION BEGINS 

SAMPLE 

NORMAL TERMINATION 

STACK USED = 3648 HEAP USED = 2472 


CODEGEN EXECUTION BEGINS 
SAMPLE 

NORMAL TERMINATION 

STACK USED = 8592 HEAP USED = 892 


PSCLXREF EXECUTION BEGINS 
NORMAL TERMINATION 
STACK USED = 14272 HEAP USED = 294 


Figure 11-4. Message File 
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12 SEPARATE COMPILATION 


12.1 General 


Development of a large program is significantly less expensive when modules of the program 
can be recompiled for correction or for change without recompiling the entire program. In 

a block-structured language such as Pascal, separate compilation is more difficult than in 
assembly language or high-level languages that are not structured. The scope rules of Pascal 
and the capability of passing parameters either by value or by reference make this true. To 
separately compile a Pascal routine, all global declarations must be included in the source 
code so that the environment identical to that in which the routine executes is provided. 
Global declarations in this context include the declaration sections of all routines within which 
the routine is nested. The process of manually merging the declaration section is tedious and 
error-prone. 


12.2 Requirements for Separate Compilation 


The Pascal compiler produces a separate object module for each program and for each routine 
of the program. Two object modules result from compiling the following code: 


PROGRAM A; 
VAR X,Y,Z : INTEGER; 
PROCEDURE B(W:INTEGER); FORWARD; 
PROCEDURE B; 
BEGIN (* B *) 
W t= 
END (* B *); 
BEGIN (* A *) 
B (xX) 
END (* A *), 


The two object modules are concatenated in a single file by the compiler; they could be sepa- 
rated (using the text editor, for example) and stored as separate library members. They could 
be reconcatenated before link editing, or could be specified to the link editor by specific 
INCLUDE commands in the control file. 


When the main program module A needs to be recompiled, a new module for A can be compiled 
and the new module linked with the existing module for B. To recompile a new module for 
A, simply omit the code for procedure B, and compile the following: 


PROGRAM A; 
VAR X,Y,Z : INTEGER; 
PROCEDURE B(W : INTEGER); FORWARD; 
BEGIN (* A *) 

B(X) 
END (* A *), 


Since procedure B is omitted, the forward declaration of procedure B must be included so 
that the call to procedure B in program A will result in the correct linkage. 
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To recompile routine B correctly, the compiler must have the declarations of the main program 
as well as those of routine B. The source code is as follows: 


PROGRAM A; 
VAR X,Y,Z : INTEGER; 
PROCEDURE B(W : INTEGER); FORWARD; 
PROCEDURE B; 
BEGIN (* A *) 
W sa Y 
END (* B *); 
BEGIN (*$SNO OBJECT*) 
END (* A *), 


The NO OBJECT option suppresses the production of an object module for A, and only the 
object module for B is produced. This module may be linked with the existing module for A 
to obtain a new version of the entire program. 


The NO OBJECT option is required because even the BEGIN END keywords alone for module A 
would have produced an object module. It would have been necessary to delete this modu 
in order to properly link the existing A module with the new B module. 


A different approach to the problem of separately compiling a module of a program is to store 
individual source modules in a library. The source code in the example could be separated 
as follows: 


PROGRAM A; 
VAR X,Y,Z : INTEGER; 
PROCEDURE B(W : INTEGER); FORWARD; 
BEGIN (* A *) 

B(X) 
END (* A *), 


PROCEDURE B; 

BEGIN (* B *) 
W := 

END (* B *), 


The first of the two source modules shown may be used without alteration to recompile mile 
A. Combination of the two with appropriate text editing is required to recompile module B. 


The requirements of separate compilation of a program having more routines or nested routines 
to two or more levels are somewhat more complex. The preceding example provides a general 
idea of what must be done. Specifically the declarations of all routines within which the routine 
to be separately compiled is nested, and the declarations of the main program must be included, 
On the other hand, only the statement section of the routine being separately compiled is 
included. The preparation of source code for separate compilation of 4 routine can be done 
manually using utilities. However, the Pascal software includes the Configuration Processor 
(CONFIG) to perform these operations. 
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12.3 The Configuration Processor 


The Configuration Processor supports separate compilation of Pascal modules by performing 
the following functions: 


2 Maintaining a library of source modules to be combined as required for separate compi- 
lation of each module of a program. 

a Preparing a source program for each separate compilation. 

e Maintaining a library of object modules of a program, from which appropriate object 


modules are linked. 


12.3.1 Functional Description of CONFIG 


The functions of CONFIG are shown in figure 12-1, a flowchart of the separate compilation 
operation. The following description assumes that user source libraries have been prepared 
that include the source modules required for the separate compilation. These libraries could 
have been produced by a text editor; i.e., the user could have written the source code as 
separate modules in a source library. Alternatively, the library could have been created from 
a source program by a source program splitting utility (SPLITPGM) described in a subsequent 
paragraph. 


The separate compilation using CONFIG consists of the following steps: 


© The user executes CONFIG, directing its actions with user commands. In response 
to these commands, CONFIG communicates with the user source libraries and prepares 
the desired Pascal program. CONFIG also writes a process configuration as specified 
in the user commands, which describes the hierarchical structure of the program. 
In addition, CONFIG writes a file of deferred commands for a subsequent execution 
of CONFIG, and a command listing file that contains the commands and a copy of 
the process configuration. 


* The Pascal Compller processes Pascal program written by CONFIG. The compiler pro- 
duces a separate object module for each routine being compiled, and a source listing. 


” CONFIG executes again, using the commands in the deferred command file written 
during the previous run of CONFIG. The object modules written by the compiler are 
concatenated on a file; CONFIG separates the modules, writing them as members 
of the user object libraries. Optionally, CONFIG may collect a full set of object modu- 
les to be supplied to the Linkage Editor. 


The Linkage Editor links the object modules with modules from the Pascal object library 
to form a load module (linked object module) and writes the link edit map listing. 
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INPUT 


USER MASTER oR LIBRARY 
COMMANDS 


USER 
SOURCE 
LIBRARIES 


OUTPUT 


COMPFILE 


PASCAL 
PROGRAM 
SOURCE 1 
OBJECT 
OBJECT 
OUTPUT 
COMMAND 
OBJECT 
OBJECT 
LINK EDIT LINKAGE aaaeare 
ar EDITOR LIBRARY 


LOAD 
MODULE 


PROCESS 
CONF IGURATIO 


DEFERRED 
COMMANDS 


OBJLIB or ALTOBJ 


USER OBJECT 
LIBRARIES 


Figure 12-1. Flow of Separate Compilation Using CONFIG 
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12.3.2 Format of Source Modules 


Source modules for input to CONFIG must be separated and stored as members of user source 
libraries. They must conform to the following rules: 


2 A source module consists of one program, procedure, or function in which all contained 
procedures and functions have been replaced by forward declarations. 


2 Each procedure and function must be declared in a forward declaration to ensure 
that each calling sequence is correctly defined. 


° Keyword BEGIN of the compound statement that contains the statements of the pro- 
gram, procedure, or function is in character positions 1 through 5. The component 
statements must be indented. 


s Keyword END of the compound statement that contains the statements of the program, 
procedure, or function is in character positions 1, 2, and 3. The component statements 
must be indented. 


: Compiler option NULLBODY should not be specified in any of the source modules. 
$ Character position 1 should never contain an asterisk (*). 
9 Character position 1 should never contain a minus sign (-) unless character position 2 


also contains a minus sign. 


. A comment in the declaration section that begins in character position 1 must be closed 
by a brace (?) in character position 72 or an asterisk and parenthesis (*)) in character 
positions 71 and 72 of the same or a succeeding line. 


CONFIG recognizes one or more comments in the declaration section of a module preceding 
the TYPE or VAR declaration as the documentation section of the module. Comments in this 
section must begin in character position 1 and close in character position 72 of the same 

or a succeeding line, and may be listed separately from the source code. The LISTDOC com- 
mand that specifies the modules for which the documentation section is to be listed is des- 
cribed in a subsequent paragraph. 


Utility NESTER may be used to comply with indentation requirements (third and fourth rules), 
and utility SPLITPGM may be used to divide a source program into source modules in accor- 
dance with the first rule. 


12.3.3 Process Configuration 


CONFIG must determine the structure of the program: i.e., the name of the main program, 
the names of the routines, and the name of the routine within which each routine is declared 
(or the main program name for global routines). The primary data structure that contains this 
information is called the process configuration; it is written, maintained, and used by CONFIG. 
User commands specify the structure and contents of the process configuration. 


Ir some BNF productions for configuration processor commands, angle brackets (<>) are 
used as terminal symbols. When an angle bracket in a BNF production is a terminal symbol, 
it is enclosed in quotation marks (""). 
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The process configuration is structured as a tree with each node representing a source module 
of the program. The root node of the process represents the main program module. Consider 
the following program structure: 


LABELS 


INTERACT READANDPRINT 


GETLINE PRINTLABEL 


The process configuration is represented in tabular form as follows: 


| 
PROCESS NAME SOURCE LOCATION OBJECT LOCATION FLAGS SE) 
sanennamnemanme <= anatnnmennmemmmmmmmmmn  snamniamainitneine | 
LABELS <LIBRARY ,LABELS> | 
INTERACT <LIBRARY ,INTERACT> 
READADNP <LIBRARY ,READANDP> 
GETLINE <LIBRARY ,GETLINE> 
PRINTLAB <LIBRARY ,PRINTLAB> 


The example process configuration corresponds to the commands in the example in paragraph 
12.3.3.4. The source locations listed are the locations at which CONFIG accesses the source 
modules, The library name is the default value (paragraph 12.3.8) because no DEFAULT SOURCE 
command (paragraph 12.3.8.6) has been entered. No object locations are listed because 

no DEFAULT OBJECT command (paragraph 12.3.8.7) has been entered. No flags (paragraph 
12.3.6) are listed because the initial states of the flags have not been altered. 


The commands used to define process configurations are: 


2 *BUILD PROCESS 
2 *ADD 
° *CAT PROCESS 


12.3.3.1 BUILD PROCESS Command 


The BUILD PROCESS command initializes a configuration process as the current configuration | 
process. The syntax of the command is as follows: 
<build process command> ::= *BUILD PROCESS [ <location> ] 

| 


<location> ::= "<"[ <library>,] <member>">" 


The syntax diagram is as follows: 


Build process command: 


es LIBRARY Lf 


*BUILD 
PROCESS 
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The location parameter is optional. It may be omitted when the location is specified in the 
CAT PROCESS command. The location consists of a library synonym and a member name. 
The library synonym may be omitted; the default source library (LIBRARY, unless it has been 
altered by a DEFAULT SOURCE command) Is used. 


12.3.3.2 ADD Command 


The ADD command specifies the name of the root node for a process configuration and optio- 
nally, a location at which the source module for the node Is cataloged. An alternate form 

of the command specifies the name and location of one or more nodes as sons of a specified 
node. The syntax of the command Is as follows: 


<add command> :t= *ADD <name>[ <location>] [ :<name> [ <location>] 
»<name>[ <location>] { ] 


The syntax diagram Is as follows: 


Add command: 


U LOCATION i 


The first ADD command following a BUILD PROCESS command has only one name, that of 
the root node of a process configuration. The location parameter is the location as defined 
for the BUILD PROCESS command (paragraph 12.3.3.1) and is optional. When no location 

is entered, the node name is used as the member of the default source library. Subsequent 
ADD commands require that the first name parameter is the name of a previously defined 
node. The location, if entered, is ignored. Name parameters to the right of the colon (:) define 
additional nodes that are sons of the node named in the first name parameter. The location, 

if entered, specifies a library and member or a member of the default source library for the 
module, If no location is entered, the node name Is used as the member name of the default 
source library (LIBRARY, unless it has been altered by a DEFAULT SOURCE command). 


12.3.3.3 CAT PROCESS Command 


Tne CAT PROCESS command causes the current process to be stored at the specified location. 
The syntax for the command is as follows: 


The syntax diagram Is as follows: 


Cat process command: 


*CAT PROCESS 


LOCATION 


12/8 


The location is the location as defined for the BUILD PROCESS command (paragraph 12.3.3.1). 
When a location has been previously specified for the current process configuration (in a 

BUILD PROCESS or USE PROCESS command), the location may be omitted. When a location 

is specified, the location in the CAT PROCESS command applies, replacing any previous location. 


12.3.3.4 Process Configuration Command Example 


The following ts an example of a set of commands to define a process configuration. The 
commands in the example define the process configuration described in paragraph 12.3.3: 


*BUILD PROCESS 

*ADD LABELS 

*ADD LABELS : INTERACT 

*ADD LABELS : READANDP 

*ADD READANDP : GETLINE 

*ADD READANDP: PRINTLAB 

*CAT PROCESS <LIBRARY,PROCESS> 


The BUILD PROCESS command initializes a process configuration and the first ADD comman. 
defines the root node of the structure as the main program, LABELS. The next two ADD com- 
mands define two sons of the root node, INTERACT and READANDP. The last two ADD com- 
mands define two sons of node READANDP, GETLINE and PRINTLAB. The CAT PROCESS 
command specifies that the process Is cataloged as member PROCESS of a library the pathname 
of which is the value of synonym LIBRARY. Since the BUILD PROCESS command did not 
specify a location for the process configuration, the CAT PROCESS command requires a loca- 
tion parameter. 


Figure 12-3 shows the source code for the program structure used in the process configuration 
example. 
12.3.3.5 USE PROCESS Command 


The USE PROCESS command specifies an existing process configuration as the current process 
configuration. The syntax of the command Is as follows: 


<use process command> ::= *USE PROCESS <location> 
The syntax diagram is as follows: 


Use process command: 


The location is the location as defined for the BUILD PROCESS command (paragraph 12.3.3.1). 
The location must be specified, and must be the location of a cataloged process configuration. 
The process configuration becomes the current process configuration for the remainder of 

the run. Either a USE PROCESS command or a BUILD PROCESS command must define a current 
process configuration before any command that operates on a process configuration is entered. 
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12.3.4 Compilation 


The principal use of CONFIG is in compiling a program or in separately compiling one or more 
object modules of a program. As shown in figure 12-1, compilation consists of an execution 

of CONFIG that produces a source module that includes the necessary source library members 
from which the required module or modules may be compiled, and a file of deferred commands 
for a subsequent run of CONFIG. The compiler executes, using the source module written by 
CONFIG, and provides an object file containing the desired module or modules. A second 
execution of CONFIG uses the deferred command file to control the separation of the object 
file into an object module library and/or writing an object file for direct Input to the linkage 
editor. 


The user commands for compilation include a BUILD PROCESS command, ADD commands, 
and CAT PROCESS command to define a process configuration, or a USE PROCESS command 
to specify a previously built process configuration. A COMPILE command to specify the object 
modules to be compiled Is also required. The deferred command file includes a USE PROCESS 
command, a SPLIT OBJECT command, and an EXIT command. The additional commands 

used in compilation are described in the following paragraphs. 


The USE PROCESS command placed in the deferred command file differs from that entered 

by the user. The CAT PROCESS command does not store the entire process configuration; 

the USE PROCESS command previously described would not access all the information required 
for separating the object modules and/or writing the object file. The USE PROCESS command 
placed in the deferred commands file Is In the following format: 


*USE PROCESS # 


The pound sign (#) indicates that the external representation of the process configuration 
follows the USE PROCESS command in the deferred commands file. This is the mechanism 
by which CONFIG passes the entire process configuration to the succeeding run of CONFIG 
that separates object modules. 


12.3.4.1 COMPILE Command 


The COMPILE command causes CONFIG to prepare a source module for compilation and speci- 
fies the module or modules to be compiled. The syntax for the command is as follows: 


<complle command> ::= *[ NO ] COMPILE ALL! *[ NO ] COMPILE <name>[ ALL ] 
y<name> [ ALL ] 


The syntax diagram is as follows: 


Compile command: 


The optional keyword NO allows the user to inhibit compilation of the module or modules 
named in the command. When the keyword ALL is entered following the keyword COMPILE 
with no name parameter, the command controls compilation of the entire program. The name 
parameter Is the name of the node corresponding to a module to be compiled. When the keyword 
ALL follows a name parameter, the command controls compilation of the module corresponding 
to the named node, and the modules for all its descendants. Additional name parameters 

each optionally followed by keyword ALL may be entered, 
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The following guidelines apply to selection of modules for recompilation: 
, When a statement within the compound statement of a program or routine is changed, 
recompile the module that contains the program or routine. | 


When a declaration of a program is changed (global declaration), recompile the entire 
program. 


, When a declaration of a routine is changed, recompile the module that contains the 
declaration, and the modules of all nodes that are descendants of the node that contains 
the declaration. 


The COMPILE command controls preparation of the source module for the compilation, including | 
either the declarations of a program or routine, both the declarations and the statements, 
or neither. When the entire program is to be compiled, the source module contains both the 
declarations and statements of all routines and of the program. When a module is to be compiled, 
the source module contains the declarations of the program and routines that correspond 

to all nodes that are ancestors of the module and the declarations and statements of the 

module to be compiled. When the module and all its descendants are to be compiled, the | 
declarations of modules that are ancestors of the module are included with the declaratioryy 
and statements of the module itself and of all modules that are descendants. 


12.3.4.2 SPLIT OBJECT Command 


The SPLIT OBJECT command is placed in the deferred command file when a COMPILE com- | 
mand is included in the INPUT file. The command should not be entered by the user. The 
format of the command Is: 


*SPLIT OBJECT 


The SPLIT OBJECT command causes CONFIG to catalog each object module of the object 
flle written by the compiler as a member of a library. The library synonym and/or member 
name may be specified in a USE OBJECT command or a DEFAULT OBJECT command, Other- 
wise the default object library is used with the node name as the member name. The default 
object library is ALTOBJ. 


The EXIT command is placed in the deferred command file following all other commands placed 
in the file. The format of the command is: 


*EXIT 


When CONFIG reads the EXIT command in the INPUT file it terminates processing. The user 
may enter the command to abort execution of CONFIG. No files are saved. 


12.3.4.4 Compilation Example 


The following commands in the INPUT file cause CONFIG to provide a source file that contains 
all source modules for a program and a deferred command file te catalog all object modules 
in the object file written by the compiler: 


*USE PROCESS <LIBRARY, PROCES> 


| 
| 
12.3.4.3 EXIT Command 
*COMPILE ALL 
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In this example, the process configuration has previously been built and cataloged at location 
<LIBRARY,PROCES>. If a BUILD PROCESS command, a set of ADD commands, and a CAT 
PROCESS command were Included instead of the USE PROCESS command, a new process 
configuration would be built and cataloged. The COMPILE commana applies to the program 
that corresponds to the current process configuration, whether the process configuration 
was built in a previous run of CONFIG or was built in the same run. 


Figure 12-2 shows the contents of file OUTPUT following the initial run of CONFIG, The com- 
manas are listed first, followed by a tabular representation of the process configuration. The 
flags set in the process configuration are the result of the COMPILE command as described 
in a subsequent paragraph. The pathnames corresponding to the filles used are listed next, 
followed by the pathnames assigned to the library synonyms defined by CONFIG. 


Figure 12-3 shows the source listing of the compiler run. Notice that CONFIG has inserted 
some comment lines, but that otherwise the program Is identical to the NESTER output (Fi- 
gure 10-2) of the same source program. 


Figure 12-4 shows the contents of fille OUTPUT for the deferred processing run of CONFIG. 
The deferred commands are listed and the object modules are also listed. The node name, 
and location Is shown for each module, followed by the termination record of the module. 


A partial compilation of two modules of the same program Is performed using the following 
commands: 


*USE PROCESS <LIBRARY, PROCES> 
*COMPILE PRINTLAB, INTERACT 


*USE PROCESS<LIBRARY, PROCES> 
*COMPILE ALL 


PROCESS NAME SOURCE LOCATION OBJECT LOCATION FLAGS SET 
LABELS <LIBRARY »LABELS > o1 
INTERACT <LIBRARY . INTERACT> O14 
READANDP <LIBRARY »READANDP> o4 
GETLINE <LIBRARY ,GETLINE > o4 
PRINTLAB CLIBRARY .PRINTLAB> a1 
INPUT = STo? 
CRIFIL = STO? 
OUTPUT = PAESB3.ED.L.CONFIG 
COMPFILE = .COMPFIOS 
CPTEMP = .CPTEMPOS 
OBJECT = .OBJECTOS 
MASTER = DS02.ED.NESTER 
LIBRARY = DSOZ.ED.NESTER 
OBJLIB = DS02.ED.0 
ALTOBJ = [S02.ED.0 


Figure 12-2. Contents of OUTPUT File, Initial CONFIG Run, Full Compilation 
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LABELS ; PACE 1 


(H+ LABELS 
+ INTERACT 
. READANDP 
+ GETLINE 
? PRINTLAB 
— - *) 
PROGRAM LABELS; 00000010 
( Rn nn a rn re ee en —00000020 
PROGRAM LABELS; 00000030 
PURPOSE : THIS PROGRAM READIS AN ADDRESS LABEL AND PRINTS MULTIPLE 00000040 
COPIES OF THAT LABEL. v0000050 
FILES USED: INPUT - FOR USER-SUPPLIED PARAMETERS AND THE LABEL 00000060 
CPTFIL - USED FOR FROMPTING INPUT 00000070 
OUTPUT — MULTIPLE “UPIES OF THE LABEL 00000080 
PROCEDURES CALLED : INTERACT, READANDFRINT 00000090 
a a a a #*)00000100 
VAR CRTIFIL &t TEXT + (#USED TO PROMPT INPUT#) 0000d110 
CHARSPERLINE =: INTEGER; (#NUMBER OF CHARACTERS PER LINE*#) 00000120 
LINESPERLABEL : INTEGER; (#NUMBER OF LINES PER LABEL#) 00000130 
COPYCOUNT : INTEGERS (#NUMBER OF COPIES TO [?RINT#) 00000140 
PROCEDURE INTERACT: FORWARD: 00000150 
PROCEDURE READANDPRINT: FORWARD; 00000160 
(er % *) 
PROCEDURE INTERACT: 0e0000010 
(Shree ern erm nen RR RN TT ON ET TT I TIT TI ee | 00000020 
PROCEDURE INTERACTs 00000030 
PURPOSE =: INTERACT PROMPTS THE USER, REQUESTING CERTAIN INPUTS. 00000040 
OUTPUTS : CHARSPERLINE - NUMBER OF CHARACTERS PER LINE 00000050 
LINESPERLABEL - NUMBER OF LINES PER LABEL 00000060 
COPYCGUNT - NUMBER OF LABELS TO PRINT 00000070 
RS Se a ne ae ES Oe NE RT POE IN a ES A > REE RS Reena Pema RnEmenemeteree en nem remmneememecenemmn met » COOOOOSO 
BEGIN (# INTERACT *#) 00000090 
REWRITE( CRTFIL )3 00000100 
WRITELN( CRIFIL> “HOW MANY CHARACTERS PER LINE?’ )3 00000110 
RESET( INPUT): READ( CHARSPERLINE )+¢ 00000120 
WRITELN( CRIFIL, “HOW MANY LINES PER LABEL?’ )¢ 00000130 
REAGLN; READ( LINESPERLABEL )3 09000140 
WRITELN( CRTFIL, “HOW MANY LABELS?’ ); 00000150 
READLN; READ( COPYCOUNT )3 WRITELN(CRTFIL, “NOW INPUT THE LABEL”); 00000160 
END; (# INTERACT) 00000170 
(#, *) 
PROCEDURE READANDPRINT? 0000VU010 
( Br rn rn rn nn en nn ren enn nnn nnn ree LO0000Z0 
PROCEDURE READANDPRINT? 0V000030 
PURPOSE : READANDPRINT READS A LABEL AND PRINTS MULTIPLE CUPIES OF 1T.00000040 
PROCEDURES CALLED : GETLINE, PRINTLABEL 00000050 
Ss eeetetiteteeenteneeiententententeainteesennesteeehenentienteetieemneestesteetenteehasienteanententeatententestesenteatetenenenatetnateaeneneeneneneneetel #) 0U000060 
TYPE 00000070 
LINE = PACKED ARRAY (.1..CHARSFPERLINE.) OF CHAR; G00000SO 
VAR 00000070 
LABELIMAGE : ARRAY (.1..LINESPERLABEL.) OF LINES 00000100 
PROCEDURE GETLINE(VAR THISLINE : LINE): FORWARD: HOO00O1 10 
FROCEDURE PRINTLABEL$ FORWARD: 00000120 
(e+ *) 
PROCEDURE GETLINE(#VA@R THISLINE =: LINE#); Co000010 
HOONOALG 


Figure 12-3. Source Listing, Full Compilation Example (Sheet 1 of 2) 
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GETLINE PAGE Z 
FROCEDURE GETLINES QOOOOOZ0 
PURPOSE : GETLINE READS A SINGLE LINE OF A LABEL. 00000040 
INFUTS & CHARSPERLINE - NUMBER CF CHARACTERS PER LINE CQO000EO 
OUTPUTS 3: THISLINE - THE LINE THAT WAS READ. ODO0004L0 

wo + ~- - - - - r= *) 00000070 

VAR CH : INTEGER: 0O000030 

BEGIN (#GETLINE*#) 00000090 
READLNs CH t= 13 00000100 
WHILE CH <= CHARSPERLINE AND NOT EOLNCINFUT) DC BEGIN 00000110 

READ THISLINE(.CH.) )3 CH := CH + 13 00000120 
END; (#FILL IN REST OF LINE WITH BLANKS*#) 00000130 
FOR J := CH TO CHARSPERLINE DO THISLINE(.J.) t= ° “3 00000140 

ENDS (#6ETLINE® ) 00000150 

(#, *) 

PROCEDURE PRINTLABELS 00000010 

(a a a a re ne 00000020 
FROCEDURE PRINTLABELS 00000030 
PURPOSE + PRINTLABEL PRINTS ONE COPY OF THE LABEL. 00000040 
INPUTS * LINESPERLABEL - NUMBER OF LINES PER LABEL OOO0OOEO 

CHARSPERLINE - NUMBER OF CHARACTERS PER LINE 00000060 
LABELIMAGE - THE LABEL TO BE PRINTED 00000070 

a nn an rrr nn nr renner nnn eea= #) OO0000:30 

BEGIN . (#FRINTLABEL* ) 9GHOO0FO 
FOR L := 1 TO LINESPERLABEL DO BEGIN 00000100 

FoR CH = 1 TO CHARSPERLINE DO WRITE( LABELIMAGE(.L.)(.CH.) 23 00000110 
WRITELNs ENDS 00000120 

END (#FPRINTLABEL* ) O9Q001 30 

(#= *) 

BEGIN (#READANDFRINT # ) 00000130 
FOR L := 1 TO LINESPERLABEL DO GETLINE( LABELIMACE(.L.) )3 00000140 
FOR K t= 1 TO COPYCOUNT DO PRINTLABEL; 00000150 

ENL; (#READANDPRINT* ) 00000140 

(#— #) 

BEGIN (#LABELS* ) 00000170 
INTERACT; READANDF RINT; eo000180 

END. (#LABELS* ) COO0001 790 


MAXIMUM NUMBER OF IDENTIFIERS USED = 14 
UXPSCL 1.464.090 77.303 OPTIMIZATION SUMMARY 
“INTERACT” -- S200 HEAP BYTES REQUIRED TO OFTIMIZE AT LEVEL 1 


S200 HEAP BYTES REGUIRED TO OPTIMIZE AT LEVCL 1 


“GETLINE " 


“FRINTLAB" S300 HEAP BYTES REGUIRED To OFTIMIZE AT LEVEL 1 


= REDUNDANT ONMON SUBEXPRESS IONS ELIMINATED IN “READANDF" 
“READANDF" -- SS0QO HEAF BYTES REGUIRED To OPTIMIZE AT LEVEL 1 


“LABELS "“ -— 4900 HEAP BYTES REQUIRED To OPTIMIZE AT LEVCL 1 
INSTRUCTIONS = 6% 

INTERACT LITERALS = izes «6CODE = os DATA = an 
INSTRUCTIONS = ZO 

LETLINE LITERAL: = l= CODE = 114 LATA = 45 
INSTRUCTIONS = 30 

FRINTLAB LITERALS = 14 CODE = 104 DATA = 44 
INSTRUCTIONS = Bo 

READANDF LITERALS = =0 06 ODE = 240 DATA = 54 
INSTRUCTIONS = 33 

LABELS LITERAL = 40 cobe = 134 DATA = 1466 


Figure 12-3. Source Listing, Full Compilation Example (Sheet 2 of 2) 
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RUCK PROCESS # 
COPLIT OBJECT 


INTERACT = CALTOBJ »INTERACT>: INTERACT 12/13/77 OB 15342 DOXPSCL 
HETLINE = CALTOBJI »GETLINE >: GETLINE 12/13/77 or15247 DXPSCL 
FRINTLAB = <ALTOBJS »PRINTLAB>: PRINTLAB 12/13/79 O9:15252 LXF'SCL 
PEADANDE = CALTCBJ »READANDP>: READANDP 12/13/77 9 OB215350 UXPSCL 
LABELS = “<ALTOBJ LABELS vs LABELS 12/13/79 St 16201 UXPSCL 
*CxaIT ‘ 


Figure 12-4. Contents of OUTPUT File, Deferred Processing, Full Compilation 


The COMPILE command for this example specifies compiling modules INTERACT and PRINTLAB. | 
The source module for the compilation requires the declarations of those modules that are 
ancestors of these modules; specifically, the declarations of modules LABELS and READANDPRINT. | 
The source module also must Include both the declarations and statements of modules PRINTLAB 
and INTERACT. | 


Figure 12-5 shows the contents of file OUTPUT for the Initial CONFIG run. As In the full comMe- 
tion example, the fllie contains the commands and a tabular representation of the process 
configuration. The flags set in the process configuration (described in a subsequent paragraph) 
correspond to the portions of modules that are to be combined in the source file that CONFIG 
builds. The pathnames are identical to those in the preceding example. 


LABELS is first, including the forward declarations of routines INTERACT and READANDPRINT. 
Next is module INTERACT, followed by the declaration portion of module READANDPRINT. 
Forward declarations of routines GETLINE and PRINTLABEL are Included, even though no 
portion of module GETLINE Its included in the partial compilation. Module PRINTLABEL is next, 
followed by the statement portions of routine READANDPRINT and program LABELS, To inhibit 
the compiler from writing modules READANDP and LABELS, the statement portions of these 
modules supplied by CONFIG consist of BEGIN keywords followed by NULLBODY option com- 
ments and END keywords. 


Figure 12-6 shows the source listing of the compiler run. The declaration portion of module | 
| 
} 


KUSE PRUOCESSCLIBRARY. PROICE LD 
aCOMPILE FRINTLAB, INTERACT 


PROCESS NAME SQUACE LOUVATIUN ORVECT LOLAT ION FLALS ECT 
LABELS SLIERARY ,»LABELS ° Q 
INTERACT SLISRARY » INTERACT? Oo 4 
REL ADANDF SLIBRARY ,READANLIP > u 
QETLINE CLIBRARY .»GETLINE > 
FRINTLAB SLIBRARY .PRINTLARB> a. 
INPUT = STQ? 
CRTY Ik = STa® | 
OUTPUT * PAESBS.EO.L. CONFIG 
LOMPFILE & .COMPFLUS | 
CRTIEMF == . CE TEMPO? 
OBRUCET = ,URIECTOY 
MASTER = OSOD.ER.NESTER 
LILRARY a PSus.6D, NESTER 
ORL IR = Lsas. ca. 
AL TORS = psec. EOo.a 


Figure 12-5. Contents of OUTPUT File, Initia! Run, Partial Compilation 
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(#+ 
+ INTERACT 
+ PRINTLAB 
--- *) 
FROGRAM LABELS; 00000010 
{ ipicanitngeenenmionniicinte -------~------—---------------~------------------—--00000020 
00000030 


PROGRAM LABELS; 
PURPOSE : THIS PROGRAM READS AN ADDRESS LABEL AND PRINTS MULTIPLE 00000040 


COPIES OF THAT LABEL. 00000050 
FILES USED: INPUT —- FOR USER-SUPPLIED PARAMETERS AND THE LABEL 00000060 
CFPTFIL — USED FCR PROMPTING INPUT 00000070 
OUTPUT —- MULTIPLE COPIES OF THE LABEL 00000080 
PROCEDURES CALLED : INTERACT, READANDPRINT 00000090 
----—-~—--—-- —- —- ——— - - — 00000100 
VAR CRIFIL =: TEXT 3$ (#USED TO PROMPT INPUT) 00000110 
CHARSPERLINE : INTEGER: (#NUMBER OF CHARACTERS PER LINE*) 00000120 
LINESPERLABEL +: INTEGER? (#NUMBER OF LINES PER LABEL*) 00000130 
COPYCOUNT : INTEGER? (ENUMBER OF COPIES TO PRINT*) 00000140 
PROCEDURE INTERACT’ FORWARD: 00000150 
PROCEDURE READANDPRINT: FORWARD: 00000160 
(#+ *) 
PROCEDURE INTERACT$ 00000010 
( Pe ne er maaan en enen men ener reneweren mm emeneneen eevenanenen aren eoen me VOOUIOZO 
PROCEDURE INTERACT: 00000030 
PURPOSE : INTERACT PROMPTS THE USER, REQUESTING CERTAIN INPUTS. 00000040 
QUTPUTS : CHARSPERLINE - NUMBER OF CHARACTERS PER LINE 00000050 
LINESPERLABEL - NUMBER OF LINES PER LABEL YVOOOON60 
COPYCGUNT - NUMBER OF LABELS TO PRINT 00000070 
rt rn rn rn ern ne rrr nn nnn nnn enna a= # ) GOOOOOSY 
BEGIN ” (* INTERACT ) 00000070 
REWRITE( CRTFIL )$ OO0OO100 
WRITELN( CRTIFIL, “HOW MANY CHARACTERS PER LINE?” )3 OOOOOL1LO 
RESET( INPUT): FEAD( CHARSPERLINE ); eo00eg1zO 
WRITELN( CRTFIL, “HOW MANY LINES PER LABEL?’ ); 00000120 
READLN; READ( LINESPERLABEL ); 00000140 
WRITELN( CRTFIL, “HOW MANY LABELS?” )3 00000150 
READLNs READ( COPYCOUNT )$ WRITELN(CRTFIL, “NOW INPUT THE LABEL”); 90000160 
END; (* INTERACTx) 00000170 
(#, #) 
PROCEDURE READANDPRINT; OOOOOOLO 
( Be er men ene en aemen anew an ana an ae ene an a ae OS ae ae ae Oo eo a oe eo O0OOORZ0 
PROCEDURE READANDPRINT; 00000030 
PURPOSE : READANDPRINT READS A LABEL AND PRINTS MULTIPLE COPIES OF 1T. 0OUu00040 
PROCEDURES CALLED : GETLINE, PRINTLABEL HOOOOOSO 
Sn eae tire eh 6 o'o'a. os. 
TYPE 00000070 
LINE = PACKED ARRAY (.1..CHARSPERLINE.) OF CHAR; 
VAR 


LABELIMAGE : ARRAY (.1..LINESPERLABEL.) OF LINE; 
PROCEDURE GETLINE(VAR THISLINE : LINE); FORWARD 
PROCEDURE PRINTLABEL; FORWARD: 

( #+ 
PROCEDURE FRINTLABEL: 


( Sheeran resem es = eoenenan mnenanimian sao is 


PROCEDURE FRINTLABELs 


Retain Mi OL | 


Figure 12-6. Source Listing, Partial Compilation Example (Sheet 1 of 2) 
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FRINTLABEL FALE = 

PURPOSE § PRINTLABEL PRINTS GONE COPY OF THE LABEL. QO000040 
INPUTS : LINESPERLABEL - NUMBER OF LINES FER LABEL oo00000S0 
CHARSPERLINE - NUMBER OF CHARACTERS PER LINE 90000060 
LABELIMAGE - THE LABEL TO BE PRINTED 00000070 
tren nnn nn on +--+ - 5 e+ + —-# )} 00000030 
BEGIN . (#PRINTLABEL * ) 00000090 
FOR L t= 1 TO LINESPERLABEL DO BEGIN 90000100 
FOR CH *= 1 TO CHARSPERLINE DO WRITE( LABELIMAGE(.L.)(.CH.) )3 00000110 
WRITELN; END; 00000120 
EWD; (#PRINTLABEL* ) 00000130 

(*= *) 


BEGIN (#$NULLBODY #) 

END (* READANDP #)3 

(#— *) 
BEGIN (#$NULLBODY *) 

END (* LABELS Bic 


MAXIMUM NUMBER OF IDENTIFIERS USED = 15 
OXPSCL 1.6.0 79.308 OPTIMIZATION SUMMARY 
“INTERACT” -- S200 HEAP BYTES REQUIRED TO OPTIMIZE AT LEVEL 1 


“PRINTLAB“ -- 5300 HEAP BYTES REQUIRED TO OPTIMIZE AT LEVEL 1 


INSTRUCTIONS = 6? 
INTERACT LITERALS = 128 COLE = 308 DATA = 40 


INSTRUCTIONS = 30 
FPRINTLAB LITERALS = 14 CODE = 104 DATA = a4 


Figure 12-6. Source Listing, Partial Compilation Example (Sheet 2 of 2) 


Figure 12-7 shows the contents of file OUTPUT for the deferred processing. The same deferred 
commands are used as for full compilation and the object modules written by the compiler 

are listed. The newly compiled modules for the specified routines (INTERACT and PRINTLABEL) 
replace the previously compiled modules as members of library ALTOBJ. 


12.3.5 Source Listing 


CONFIG supports the listing of the source modules of source libraries specified In a process 
configuration. Two commands are provided. The LIST command specifies listing of one or 
more complete source modules. The LISTDOC command lists the documentation section of 
one or more source modules, 


The documentation section of a source module consists of one or more comments at the begin- 
ning of the declaration section, preceding the TYPE declaration, If any, or the VAR declaration. 
The brace (3 ) or parenthesis and asterisk ((*) that begin the comment must be in character 
position 1 or character positions 1 and 2 respectively. The closing brace ( ) or asterisk and 
parenthesis (*)) must be in character position 72 or character positions 71 and 72 of the same 
or of a subsequent line. The deciaration section may consist of a multiline comment as in 

the example or of a group of comments, 


The listings are written after all commands in the INPUT file have been processed and show 
the effect, if any, of any of these commands on the listing. 
12.3.5.1 LIST Command 


The LIST command causes CONFIG to list one or more source modules specified in the current 
process configuration. The syntax for the command Is as follows: 


<list command> s:= *[ NO] LIST ALL! *[ NO] LIST <name>[ ALL ] ; »<name>[ ALL 1 


fn 
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+USE PROCESS # 
*SPLIT OBJECT 


INTERACT = <ALTOBJS ,INTERACT>: INTERACT 12/13/79 US? 46209 DOXPSCL 
PRINTLAB = <ALTOBJ ,PRINILAB>: PRINTLAB 12/13/79 OG: 46:13 DXPSCL 
#EXIT 


Figure 12-7. Contents of OUTPUT File, Deferred Processing, Partial Compilation 


The syntax diagram Is as follows: 


List command: 


The name parameter is the name of a node in the current process configuration. The source 
module corresponding to each named node Is listed. When the keyword ALL Is entered alone, 
all source modules of the program are listed. Wnen the keyword ALL Is entered following 

a name parameter, the command lists the specified module and all descendants, 


12.3.5.2 LISTDOC Command 


The LISTDOC command causes CONFIG to list the documentation section of one or more 
source modules specifled in the current process configuration. The syntax for the command 
is as follows: 


<listdoc command> ::= *[ NO ] LISTDOC ALLI*[ NO ] LISTDOC 
<name>[ ALL] ,<name>[ ALL ] 
The syntax diagram is as follows: 


Listdoc command: 


LISTDOC 
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The name parameter is the name of a node in the current process configuration. The documen- 
tation section of the source module corresponding to each named node is listed. When the 
keyword ALL is entered alone, the documentation sections of all source modules of the program 
are listed. When the keyword ALL Is entered following a name parameter, the command lists 
the documentation sections of the specified module and all descendants. 


12.3.5.3 LISTORDER Command 


The LISTORDER command specifies the listing order for the LIST and LISTDOC commands. 
The syntax of the command Is as follows: 


<listorder command> ::= *LISTORDER ALPHA | *LISTORDER PROCESS 


The syntax diagram Is as follows: 
Listorder command: 


ALPHA 
*LISTORDER 


PROCESS 


The keyword ALPHA specifies alphabetic order by node name for source modules listed by 

a LIST command or documentation sections of source modules listed by a LISTDOC command. 
The keyword PROCESS specifies listing the source modules In the order in which they appear 
in the process configuration. 


The LIST and LISTDOC commands list source modules In the order In which they appear in 
the process configuration, unless a LISTORDER command has specified alphabetic order. 


The alphabetic order lists modules in alphabetic order by node name, and applies to all LIST 
and LISTDOC commands. 


Example: 
*LISTORDER ALPHA 


The example command specifies listing source modules and documentation sections of source 
modules in alphabetic order by node name. 
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12.3.5.4 Listing Examples 


Figure 12-8 lists the contents of the OUTPUT file for a listing example. The commands shown 
are a USE PROCESS command that accesses a previously cataloged process configuration 

as the current process configuration and a LIST command that lists the entire program. The 
tabular representation of the process configuration Is essentially the same as for the preceding 
examples. The flag section shows that a different flag is set for each node. The flag section 

is described in a subsequent paragraph. 


The source modules are listed In the order in which they are listed in the process configuration. 
Notice that each module contains only the declarations and statements of the program or 
routine. None of the modules could be compiled alone; the LABELS module would fail because 
It contains two forward declarations of routines, but does not contain the code for the routines. 
The other modules would fall because they do not start with a PROGRAM heading and do 

not end with a period (.). The modules form a source library from which CONFIG can write 

a source module to compile any one or more of the modules of the program. 


Figure 12-9 lists the contents of the OUTPUT file for an example of listing the documentation 
sections of a program. The commands shown are a USE PROCESS command that accesses 

a previously cataloged process configuration and a LISTDOC command that lists the entire 
program. The tabular representation of the program shows a different flag set for each node. 
The flag section is described in a subsequent paragraph. 


The documentation section of a source module consists of one or more comments at the begin- 
ning of the declaration section, preceding the TYPE declaration, if any, or the VAR declaration. 
The brace ( ) or parenthesis and asterisk ((*) that begin the comment must be in character 
position 1 or character positions 1 and 2 respectively. The closing brace ( { ) or asterisk and 
parenthesis (*)) must be in character position 72 or character positions 71 and 72 of the same 
or of a subsequent line. The documentation section may consist of a multiline comment as 

in the example or of a group of comments. 


12.3.6 Flags 


The process configuration contains a set of flags for each node that control the processing 

of the node. Each flag is either on or off. Flags are turned on or off by commands. When 

all commands have been processed, the states of all flags resulting from processing the com- 
mands Is passed to the deferred processing run of CONFIG in the external representation 


of the process configuration that follows the USE PROCESS # command in the deferred com- 
mand file. 


There are two categories of flags: system flags and user flags. System flags are predefined 
and are set to an initial state when a process configuration is built or accessed. The states 
of system flags are not stored when the process configuration is stored. The system flags, 
their significance, and their initial states are listed in table 12-1. User flags are described 
in a subsequent paragraph. 


Tne COMPILE command (paragraph 12.3.4.1) turns the DECLARATION flag on for each module 
for which the declarations are required in the source file being written. The command turns 

on both the DECLARATION and BODY flags for modules being compiled. Similarly, the NO 
COMPILE commands turn off the DECLARATION and BODY flags appropriately. 


12/20 
#USE PROCESS LIBRARY, PROCES? 
*#LIST LABELS ALL 
FROCESS NAME SOURCE LOCATION OBJECT LOCATION FLAGS SET 
LABELS <LIBRARY »LABELS > 2 
INTERACT <LIBRARY »INTERACT> 2 
READANDIP LIBRARY »,READANDP> z 
GETLINE <LIBRARY ,GETLINE > 2 
PRINTLAB <LIBRARY ».PRINTLAB> a 
INPUT = STO 
CRTFIL = SToyx 
OUTPUT = PAESBS.ED.L. CONFIG 
CUMPFILE = .COMPFIOY 
CPTEMP = .CPTEMPO? 
OBJECT = .OBJECTOY 
MASTER = DS02.ED.NESTER 
LIERARY = DSO2.ED.NESTER 
OBJLIB = DSO2.ED.0 
AL TOBA = DS02.ED.0 
CONFIGURATION PROCESSOR 12/13/79 08:48:13 
LABELS = DS02.ED.NESTER(LABELS ) 
FROGRAM LABELS: 90000010 
§ Serene ee EE SS Se Ss ee a ae tS nT RD SO DSN | COKHLOOZO 
PROGRAM LABELS; Oug00030 
PURPOSE : THIS PROGRAM READS AN ADDRES LABEL AND PRINTS MULTIPLE oo000040- 
COPIES OF THAT LABEL. OOO00050 
FILES USED: INFUT - FoR USER-SUPPLIED PARAMETERS AND TIIE LABEL QOOOOOO4LY 
CPTFIL — USED FOR FROMPTING INF'UT 00000070 
GUTPUT — MULTIPLE COPIES WF THE LABEL O0000030 
FROCEDURES CALLED : INTERACT, READANDFRINT HOOOOOZO 
----------------------------- ee a oe nn ne ee ee =) OOOO LOO 
VAR CRTFIL & TEXT $5 (#USED TO PROMPT INF LIT #) OQedC1 10 
CHARSPERLINE =: INTEGERS (#NUMBER OF CHARACTERS PER LINE*) COOOOLIO 
LINESFERLABEL : INTEGER: (#NUMBER OF LINES FER LABEL *) 80000130 
COPYCOUNT +: INTEGERS: (*#NUMBER OF COPIES TO PRINT#) 00000140 
PROCEDURE INTERACT: FORWARD: 00000150 
PROCEDURE READANDPRINT: FORWARD: 00000160 
BEGIN (#LABELS+) 20000170 
INTERACT: READANDPRINTs NONOO1L3O 
END. (*#LABELS*) CUOOOLIO 


. 


Figure 12-8. Contents of OUTPUT File for LIST Operation (Sheet 1 of 3) 


|, re Pascal /0982/e 


12/21 


CONFIGURATION PROITESSoOR 12/13/79 OS 4S314 
INTERACT = [S02.E0D.NESTER( INTERACT) 


PROCEDURE INTERACTS QQ000010 
(rn i rn i ee YOVKHOOZO 
PROCEDURE INTERACTS QOOVOOSO 


PURPOSE = INTERACT FROMPTS THE USER, REQUESTING CERTAIN INPUTS, 
OUTPUTS = CHARSPERLINE - NUMBER GF CHARACTERS FER LINE 
LINESPERLABEL - NUMBER OF LINES FER LABEL 
COPYCOUNT - NUMBER OF LABELS TO PRINT 


BEGIN (#INTEKACT# ) 
REWRITE! CRIFIL )3 
WRITELN( CRTIFIL, “HUW MANY CHARACTERS PER LINE?” )35 90000110 
RESET(CINFUT)$ READ( CHARSPERLINE ); OO000120 
WRITELN( CRTFIL, “HOW MANY LINES PER LABEL?” ); 00000130 
READLN; READ( LINESPERLABEL );¢ 90000140 
WRITELN( CRTIFIL, “HOW MANY LABELS?” )5 00000150 
READLN: READ( COPYCOUNT )3 WRITELN(CRTIFIL, “NOW INPUT THE LABEL”); 90000160 
ENDS (# INTERACT) 90000170 
CUNFIGURSTION FROICE Sok 12/13/79 O83: 4214 


REAUVANDPF = Diol. ED. NESTER (READANLIF ) 


PROCEDURE READANDE RINT; ; C0000010 
( theca en ren oe eee ee eS SS A LTA ALONE CREE 8 SAAS OO GO EO ONOOOOZO 
PROCEDURE READANDFRINTS é VOOOOOsa 
PURPOSE : READANDFPRINT READS A LABEL AND FRINIS MULTIPLE COFIES OF IT. 00000040 
PROCEDURES CALLED : GETLINE, PRINTLABEL Cood00OSO 
oe ene ER ERENT Se OO Oe nO Ne Ne ee Owen ere emm2o8 mann em em eee eet ) OOOODOL0 
TYPE 00000070 
LINE = PACKED ARRAY (.1..CHARSFPERLINE.) OF lAR; OOOOOOSO 

VAR COOOOOFVO 
LABELIMAGE : ARRAY (.1..LINESFERLABEL.) OF LINE; OOOOO1L0O 
PROCEDURE GOETLINE(VAR THISLINE : LINE)$ FORWARL; ooo000110 
PROCEDURE FRINTLALELS FurRWARDSs ONOOOLZLO 
BEGIN (AREADANUFRINT#) = 00000130 
FOR L += 1 TO LINESPERLABEL D0 GETLINE( LABELIMAGE(.L.) )3 00000140 
FOR Kk t= 1 TO COPYCOUNT DO PRINTLABEL; Ooo000150 
END (*#READANDPRINT *) OOOOO1LLO 


Figure 12-8. Contents of OUTPUT File for LIST Operation (Sheet 2 of 3) 


12/22 


ONFIGURATION PROMTES Sor 12/13/79 03:42:14 
INTERACT = DS02.ED.NESTER( INTERACT) 


FRUCEDURE INTERACT: OOOVOOLO 
( Fe rn er ne sateen sen we Saat OOOKOOZO 
PROCEDURE INTERACTS VOODOO 
PURPOSE ©: INTERACT FROMPTS THE USER, REQUESTING CERTAIN INFUTS. OOOOOO4O 
QUTPUTS =: CHARSPERLINE - NUMBER OF CHARACTERS FER LINE QO000050 
LINESPERLABEL - NUMBER OF LINES FER LABEL QAOOOOLO 
COFPYCOUNT - NUMBER OF LABELS TO FRINT GOQ0007O 
Ha eS ee %) QNNCOONZO 
BEGIN C# INTERACTS > ONOOONFO 
REWRITE’ CRIFIL ); OOOOO LOO 
WRITELN( CRTIFIL, “HOW MANY CHARACTERS FER LINE?” )3 990001 10 
RESETC(CINFUT)$ READ( CHARSPERLINE ); OOOOOLZO 
WRITELN( CRIFIL; “HOW MANY LINES PER LABEL?” )3 OOO0130 
READLNs READ( LINESPERLABEL )3 O0000140 
WRITELN( CRIFIL, “HOW MANY LABELS?” )3 ONOOO1 So 
READLN: READ( COPYCOLINT )3 WRITELN(CRIFIL,» “NOW INPUT THE LABEL~)3 90000140 
END; (# INTERACT) 00000170 
CUNFIGURSTION FPROCEDSOR 2/13/77 O2! 48214 


REAUANDF = Dicer. ED. NESTER (READANDF ) 


FROCEDURE READANDFRINTs : 00000010 
( Seer ees ee i nr te ne ee me ee eS SS ES aera Saree a Re ie a meer OOOOOOZO 
YOOOOOSY 


PROCEDURE READANDFRINT$ : 
PURPOSE : READANDFRINT READS A LABEL AND FRINIS MULTIPLE COFIES OF IT. 00000040 


PROCEDURES CALLED : GETLINE, FRINTLABEL (eTe Tele lela l= 6) 
ee a ee ee 8 ee Se eee eee met) OOOOO0EO 
TYPE QOOOOIOTO 


VAR 
LABELIMAGE : ARRAY (.1..LINESPERLABEL.) OF LINE; OOOOVLOO 
PROCEDURE GETLINE( VAR THISLINE = LINE)$ FORWARDS OOoOOO11LO 
PROCEDURE FRINTLAGELS FURWARDS OOOOOL LO 
BEGIN (#READANLERINT*) OONOOL EO 
FOR L := 1 TO LINESPERLABEL Dir GETLINE( LABELIMALBE(.L.) 23 00000140 
FOR Kk t= 1 TO COPYCOUNT [DO PRINTLABELS OOO001SO 
ENDS; (#READANDFRINT *) OOOOO LEO 


Figure 12-8. Contents of OUTPUT File for LIST Operation (Sheet 3 of 3) 
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The LIST command turns on the LIST flag for modules to be listed, and the NO LIST command 
turns the LIST flag OFF for the specified module or modules. Similarly, the LISTDOC command 
turns on the LISTDOC flag and the NO LISTDOC command turns the LISTDOC flag OFF. 


The use of the CHANGED flag which Is set by the EDIT command Is described in a subsequent 
paragraph. The NEST flag may not be set or cleared by the user. 


The COLLECT flag Is turned on and off by the Flag command described in paragraph 12.3.6.2. 
When the flag Is turned on, the module corresponding to the node for which the COLLECT 

flag is turned on Is written to the OBJECT file during the deferred processing run. The COLLECT 
flag implements optional output to a file to be specified in an INCLUDE command In the link 

edit control file, making It unnecessary for the linkage editor to search the library for the 
module. 


When the COLLECT flag Is set for any node of the process configuration, CONFIG places 
the following command in the deferred command file following the *SPLIT OBJECT command: 


*COLLECT OBJECT 


The command is executed during the deferred processing run at the point at which the command 
ts read. When the location of the object module has not been specified by a USE OBJECT 
command or by a preceding collect operation, CONFIG searches the library specified by ALTOBJ 
for the module. When the module is not on the ALTOB4J library, CONFIG next searches the 
library specified by OBULIB. 


The SPLIT flag is turned on and off by the Flag command described in paragraph 12.3.6.2. 
The flag is Initially on, causing all modules to be cataloged as members of the specified object 
library. A module for which the SPLIT flag Is not set Is not cataloged during the deferred pro- 
cessing run. 


The CHECK flag Is turned on and off by the Flag command described In paragraph 12.3.6.2. 
The flag is initially on, causing the check of the IDT of the module to be made on all modules. 
When the CHECK flag is on, the IDT of the module is compared to the name of the node; 
processing is terminated and an error message Is written when the name and IDT are not 
identical. The IDT of the module is not checked when the CHECK flag for the node has been 
turned off. 


The user may define up to 21 user flags using the SETFLAG command. User flags are turned 

on and off by the flag command, The states of user flags are stored when the process configu- 
ration is stored. The conditional flag command described in a subsequent paragraph may 

be used to test user flags and set system flags. 
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sUSE PROCESS<LIBRARY, PRUCES> 
*LISTDOC LABELS ALL 


PROCESS NAME SOURCE LOCATION OBJECT LOCATION FLAGS SET 
LABELS <LIBRARY »LABELS > 3 
INTERACT CLIBRARY » INTERACT> 3 
REALDANDIP <LIBRARY »READANDP> 3 
GETLINE <LIBRARY »GETLINE > 3 
PRINTLAB <LIBRARY »FPRINTLAB> 3 
INPUT = STO? 
CRTFIL «= STO9 
CUTPUT = PAEGB3.ED.L.CONFIG2 
COMPFILE = .COMPFIO9 
CPTEMP = .CPTEMPOS 
ORJECT = .OBJECTO9 
MASTER = DSO2.ED.NESTER 
LIBRARY = USO2.ED.NESTER 
OBJLIB = DSO2.ED.0 
ALTORJ = DSO2.ED.0 


LABELS = DSO2.ED.NESTER(LABELS ) 


(Serre rman en aiteeineneneenenen pean marenenenen enema aan nen ey Ben SLATE TLRR SSS PI TOE ET OAR ETDS 00000020 
PROGRAM LABELS: 80000030 
FURFUSE : THIS PROGRAM READS AN ADDRESS LABEL AND PRINTS MULTIFLE 00000040 

COPIES OF THAT LABEL. OO000050 

FILES USED: INPUT - FOR LUSER-SUPPLIED FARAMETCRS AND THE LABEL 00000060 
CPTFIL - USED FOR PROMPTING INPUT 00000070 

QUTPUT - MULTIPLE COPIES OF THE LABEL 00000080 

PROCEDURES CALLED : INTERACT, READANDPRINT 00000090 
SR eS SSS SSS SS eee me cy om a Sn ee Semen mem ee tem # 100000100 


( Reeser sree nme orem mene enen to meen Sen a nian RRC oP ON SRO TE EEO SIAOR PRED RAE DIET SEL ONCE TE SRI 00000020 
PROCEDURE INTERACT! 00000020 
PURPOSE : INTERACT PROMPTS THE USER, REQUESTING CERTAIN INPUTS. 00000040) 
OUTPUTS t CHARSPERLINE - NUMBER OF CHARACTERS PER LINE : 00000050 

LINESFERLABEL —- NUMBER CF LINES PER LABEL 00000060 
COPYCOUNT - NUMBER OF LABELS TO FRINT 00000070 
wr a renee (eae 4) CUOOOOSO 


Fe a ee ie me me meme me QOOOOAZO0 
PROCEDURE READANDIPRINT? OOOO ZO 
PURPUSE : READANDPRINT READS A LABEL AND PRINTS MULTIPLE COFIES oF IT. oOOQ004D) 
PROCEDURES CALLED : GETLINE, FRINTLAREL VOODOO 

meme mmm me #)QOQQONQ04L0 


Figure 12-9. Contents of OUTPUT File for LISTDOC Operation (Sheet 1 of 2) 
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GETLINE = DS02Z.ED.NESTER(GETLINE ) 


(BR OOOOORZO 
PROCEDURE GETLINE: OOOOOO 30 
PURPOSE : GETLINE READS A SINGLE LINE OF A LABEL. OOO0O04O 
INPUTS = CHARSPERLINE — NUMBER UF CHARACTERS PER LINE OOODODOOEO 
OUTFUTS : THISLINE - THE LINE THAT WAS REAL. OO000060 


PRINTLAB = DS02.ED.NESTER(PRINTLAB) 


(rn TE SN TT To we memes oe me OUIOOOIZO 
PROCEDURE PRINTLABEL: 00000030 
PURPOSE : PRINTLABEL PRINTS ONE COPY OF THE LABEL. 00000040 
INPUTS * LINESPERLABEL - NUMBER OF LINES PER LABEL OOOCOOSO 

CHARSPERLINE - NUMBER OF CHARACTERS FER LINE o00000460 
LABELIMAGE - THE LABEL TO BE PRINTED 90000070 
SRR ERE A ee LA LT ETE EAL ALATA *) 00000080 


Figure 12-9. Contents of OUTPUT File for LISTDOC Operation (Sheet 2 of 2) 


Table 12-1. System Flags 


Flag Flag Initial 
Number Name Description Value 
0 DECLARATION Set when declarations of this module OFF 
are required in source file. 
1 BODY Set when statements of this module OFF 
are required in source file. 
2 LIST Set when the source module is to be OFF 
listed, 
3 LISTDOC Set when the documentation section of OFF 
this module is to be listed. 
5 CHANGED Set when contents of a source module OFF 
are changed by an edit operation. 
5 NEST Not currently used. 
6 SPLIT Set when the object module is to be ON 
written as a member of library OBJLIB 
or ALTOBJ. 
7 COLLECT Set when the object module is to be OFF 


written on the OBJECT file. 


8 CHECK Set when the IDT of the module is to be ON 
compared to the name of the node. 
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12.3.6.1 SETFLAG Command 


The SETFLAG command defines or deletes the definition of a user flag. The syntax of the 
commands is as follows: 


<setflag command> ::= * SETFLAG <flagname>[ <flag-description>] 


The syntax diagram is as follows: 
Setflag command: 


¥ FLAG~ 7 


The flagname consists of one to eight characters and may not be a CONFIG keyword. The 
flag description is a string of up to 64 characters that describes the flag. The flag description 
begins with the first nonblank character following the flagname and extends to the first aste- 
risk (*), normally the asterisk that begins the next command. The flag description may corny 
blanks, and serves as a comment to identify the flag. When the flag description is omitted, 
the definition of that flag is deleted, and the flag is turned off in all nodes in the program. 


12.3.6.2 Flag Command 


The Flag command turns certain system flags and all user flags on or off. The syntax for the 
command is as follows: 


| 
| 
J 
<flag command> ::= *[ NO ]<flagname>ALL | *[ NO] <flagname><name>[ ALL ] | 
} <name>[ ALL ] 


<flagname> ::= SPLIT | COLLECT | CHECK I<user flagname> 


The syntax diagram is as follows: 


Flag command: 


When the optional keyword NO is entered the flag is turned off. Otherwise the flag is turned 

on. When the keyword ALL immediately follows the flagname, the flag is turned on or off 

in all nodes of the current process configuration. The name parameter specifies a node in 

which the flag is turned on or off. When the name parameter is followed by the optional keyworc | 

ALL, the FLAG is turned on or off in the named node and all its descendants. 
| 


TA TRIUMPHADLER = Pascal/0982/e 
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12.3.6.3 Conditional Flag Command 


The Conditional Flag command tests a specified flag and turns another specified flag on or 
off according to the result. The syntax of the command is as follows: 


<conditional flag command>::= * IF [ NO ] <flagname1>THENI[ NO ] <flagname2> 


<flagname1> ::= COMPILE |LIST | LISTDOC | CHANGED | SPLIT] COLLECT | CHECK |<user 
flagname> 


<flagname2> ::= COMPILE | LIST | LISTDOC | SPLIT] COLLECT] CHECK |<user flagname> 


The syntax diagram is as follows: 


Conditional flag command: 


The flagname1 parameter specifies a flag to be tested in all nodes of the current process 
configuration. The optional keyword NO preceding filename’ specifies the state tested for; 
when NO is entered the flag is tested for the off state; when NO is omitted the flag is tested 
for the on state. In each node for which the test is successful flagname2 is turned on when 
optional keyword NO is omitted, or off when NO is entered. 


Notice that COMPILE is allowed as a flagname in the conditional flag command even though 
it is not the name of a flag. When COMPILE is entered as flagname1 the BODY flag is tested. 
When COMPILE is entered as flagname2, the BODY flag is turned on or off as specified. When 
the BODY flag is turned on, the DECLARATION flag is turned on also, 


12.3.6.4 Flag Examples 


The Flag commands allow the user to control the processing of the program by setting or 
resetting the system flags. The following is an example of a Flag command: 
*COLLECT INTERACT 


The command turns on the COLLECT flag for module INTERACT, and causes CONFIG to include 
the following in the deferred command file following the *SPLIT OBJECT command: 


*COLLECT OBJECT 


The deferred processing run of CONFIG writes the module for INTERACT (and any others for 
which the COLLECT flag is on) to the OBJECT file. The OBJECT file can be specified in an 
INCLUDE command to the linkage editor. 


Another example of a Flag command is: 


*NO SPLIT ALL 


This command turns off the SPLIT flags for all modules. The deferred processing run of CONFIG 
does not catalog the object modules. Uniess the COLLECT flag is set for one or more modules 
the use of this example is of doubtful value. 
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The Conditional Flag command allows the user to selectively turn on or off the system flags. 
The following is an example of a Conditional Flag command: 


*IF CHANGED THEN COMPILE 


As described in a subsequent paragraph, the CHANGED flag is turned on by the EDIT command 
when the module is edited. The command in the example turns on the BODY flag also for 
those modules. It also turns on the DECLARATION flag when it is off. 


User flags may be defined to support an overlay structure allowing the user to specify appro- 
priate processing for overlays. The following are examples of the use of the SETFLAG command 
to define user flags: 


*SETFLAG OVRLAY1 OVERLAY 1 MODULE 
*SETFLAG OVRLAY2 OVERLAY 2 MODULE 


Flag commands turn on the flags in the appropriate modules: 


*OVRLAY1 READIN ALL 
*OVRLAY2 PRINT ALL 


The result of these commands is that user flag OVRLAY 1 is turned on in module READIN ane 
its descendants and user flag OVRLAY2 is turned on in module PRINT and its descendants, 
The command in the following example would cause CONFIG to collect overlay 2 modules 

in file OBJECT: 


*IF OVRLAY2 THEN COLLECT 


12.3.7 Modifying A Process Configuration 


The examples in this section show the buliding of a process configuration and using it for 
additional processing. However, the user may modify the current process configuration in 
several ways. ADD commands (paragraph 12.3.3.2) may be used to add modules to the program 
structure defined in the process configuration. DELETE commands may be used to delete 

nodes, and MOVE commands may be used to modify the structure by moving nodes to other 
points in the structure. The DISPLAY command may be used to display the process configura- 
tion. Object locations may be specified for nodes with USE OBJECT commands, and source 
locations may be specified or changed with USE commands. Default libraries for source and 
object rnodules may be changed with DEFAULT SOURCE and DEFAULT OBJECT a 


12.3.7.1 DELETE Command 


The DELETE command deletes a module and its descendants, if any, from the current process 
configuration. The syntax of the command is as follows: 


<delete command> ::= * DELETE<name> 


The syntax diagram is as follows: 


Deiete command: 
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The name of the parameter is the name of the node to be deleted. When the named node 
has descendants, the descendants are deleted also. 


Example: 
*DELETE READANDP 


The example command deletes node READANDP, and its descendants, GETLINE and PRINTLAB. 
It could be followed by one or more ADD commands to change the names of these nodes 
of the process configuration. 


12.3.7.2 MOVE Command 


The MOVE command moves a module and all of its descendants to become a son of another 
module. The syntax of the command is as follows: 


<move command> ::= *MOVE<name 1>TO<namez> 


The syntax diagram Is as follows: 


Move Command: 


—Con = }-O) 


The name parameter is the name of a node to be moved. The name2 parameter is the name 

of another node in the structure. Name2 may not be a descendant of name. The node speci- 
tled as name’ and all its descendants, If any, are moved. The node specified as name1 becomes 
a son of the node specified as name2. The MOVE commands implies changes in the declarations 
of routines within the source code. 


Example: 
*MOVE GETLINE TO LABELS 


The example command moves node GETLINE (a son of READANDP) to become a son of LABELS. 
The forward declaration of GETLINE In the declaration portion of READANDP would have 
to be moved to the declaration portion of LABELS in order to compile any module correctly. 


12.3.7.3 DISPLAY Command 


The DISPLAY command displays the tabular representation of all or part of the current process 
configuration on file CRTFILE. The syntax is as follows: 


<display command> ::= *DISPLAY[ <name>] ALL 


The syntax diagram is as follows: 
Display command: 
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When the optional name parameter is omitted, the entire current process configuration is dis- 
played. When the name parameter is included, the name is the name of a node, and the por- 
tion of the process configuration that lists the named node and its descendants is displayed. 


The DISPLAY command allows the user to display the process configuration to note the effect 
of the commands that have been processed. 


Example: 
*DISPLAY READANDP ALL 


The resulting display of the current process configuration includes nodes READANDP, GETLINE, 
and PRINTLAB. 


The format of the display is similar to that written to file OUTPUT, shown in figure 12-9. The 
names of the nodes are displayed, indented to show the program structure. The source and 
object locations are displayed, and the numbers of system flags that are not in their initial | 
states are displayed. The initial states of flags 6 and 8 (SPLIT and CHECK) are on; the initial | 
states of the other system flags are off. Except for flags 6 and 8 the display of the flag nuy jer | 
indicates that it Is on. An asterisk (*) is displayed with number 6 and 8 because the display | 
of either of these numbers means that the flag is off. ' 


12.3.7.4 USE OBJECT Command 


The USE OBJECT command specifies a location for the object module of a specified node. 
The syntax of the command is as follows: 


<use object command> s:= *USE OBJECT<name><location> 


The syntax diagram is as follows: 


Use object command: 


The name parameter is the name of the node to which the object location applies. The locSwon 
parameter is in the format defined in paragraph 12.3.3.1 for the BUILD PROCESS command.When 
the library is not specified in the location parameter, the location for the object module remains 
unspecified, 


Example: 


The example specifies that the object module for node INTERACT is to be cataloged as member 
INTERACT of the library whose synonym is OBJL1. 


When a USE OBJECT command specifies a member name or a library synonym and member 
name for the object module for a node, CONFIG writes the module to the library member when 
it performs the deferred processing. Otherwise CONFIG writes the module to the default object 
library using the node name as the member name. The representation of the process configura- 
tion does not contain an object location unless a USE OBJECT or DEFAULT OBJECT command 


| 
{ 
\ 
I 
| 
| 
*USE OBJECT INTERACT <OBJL1, INTERACT> 
has been entered. 
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12.3.7.5 USE Command 


The USE command specifies a location for the source module for a specified node. The syntax 
of the command is as follows: 


<use command> ::= *USE <name> <location> 


The syntax diagram is as follows: 


Use command: 


The name parameter is the name of the node to which the source location applies. The location 
parameter is in the format defined in paragraph 12.3.3.1 for the BUILD PROCESS command. 


Example: 
*USE GETLINE <SLIB1,INPLIN> 


The example specifies that the source module for node GETLINE is to be cataloged as member 
INPLIN of the library whose synonym is SLIB1. 


Either a USE command or an ADD command may be used to specify a source library synonym 


and member name for a source module. The USE command may be used to assign a different 
library synonym and/or member name. 


12.3.8 Libraries 


The following library synonyms are initially defiried in CONFIG: 


e MASTER Intended for source modules of tested (fully developed) programs. 

2 OBJLIB Intended for object modules corresponding to source modules in MASTER. 
® LIBRARY Intended for source modules of programs under development. 

? ALTOBJ Intended for object modules corresponding to source modules in LIBRARY. 


The default source library synonym LIBRARY is the logical default because it is intended for 
programs under development. Similarly, the default object library synonym ALTOBJ is appro- 
priate because it is intended for object modules corresponding to the source modules in LIBRARY. 
Either default value may be changed using the DEFAULT SOURCE or DEFAULT OBJECT com- 
mands (paragraphs 12.3.29 and 12.3.30). 


CONFIG maintains a library table in the process configuration. The first four entries in the 

table are the initially defined library synonyms MASTER, LIBRARY, OBJLIB, and ALTOBJ. 
When a library synonym is entered in any of the commands that may include a library synonym 
parameter, the synonym is added to the library table (unless it already appears in the table). 
The commands are BUILD PROCESS, CAT PROCESS, USE PROCESS, ADD, USE, USE OBJECT, 
DEFAULT SOURCE, DEFAULT OBJECT, SETLIB and EDIT. 
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Other synonyms may be substituted for the initially defined ilbrary synonyms. The MASTER 
command specifies a library synonym to replace MASTER, Similarly, the LIBRARY, OBJLIB, 
and ALTOBJ commands specify library synonyms to replace LIBRARY OBUJLIB, and ALTOBy, 
respectively. 


A library is identified to CONFIG using a library synonym, a synonym the value of which is 
the pathname of a library file. A synonym should de assigned using the appropriate operating 
system command prior to executing CONFIG. Aiternatively, a synonym may be assigned by 
a SETLIB command. 


12.3.8.1 MASTER Command 


The MASTER command specifies a library synonym to replace the initially defined library syno- 
nym MASTER, The syntax of the command Is as follows: 


<master command> ::= *MASTER <libname> 


he syntax diagram Is as follows: 


The libname parameter Is a library synonym that replaces synonym MASTER as the first entry 
in the library table. When the MASTER command is used, it sould precede the ADD commands 
that define the nodes of the process configuration. 


Master command: 


Example: 
*MASTER SRCLIB1 
The example command replaces MASTER as the library synonym in the first entry of the iibrary 


table with SRCLIB1. 
12.3.8.2 LIBRARY Command 


The LIBRARY command specifies a library synonym to replace the initially defined library 
synonym LIBRARY. The syntax of the command is as follows: 


<library command> ::= *LIBRARY <libname> 


The syntax diagram ts as follows: 


The libname parameter Is a library synonym that replaces synonym LIBRARY as the second 
entry in the library table. When the LIBRARY command Is used, it should precede the ADD 
commands that define the nodes of tne process configuration. 


Library command: 
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Example: 
*LIBRARY SRCLIB2 
The example command replaces LIBRARY as the library synonym in the second entry of the 


library table with SRCLIB2. 
12.3.8.3 OBJLIB Command 


The OBJLIB command specifies a library synonym to replace the Initially defined library syno- 
nym OBUJLIB. The syntax of the command is as follows: 


<objlib command> ::= *OBJLIB <Iibname> 


The syniax diagram is as follows: 


Objlib command: 
= 


The libname parameter Is a library synonym that replaces synonym OBUJLIB as the third entry 
in the library table. When the OBJLIB command is used, It should precede the ADD commands 
that define the nodes of the process configuration. 


Example: 
*OBJLIB OBuLIB1 


Tne example command replaces OBULIB as the library synonym In the third entry of the library 
table with OBJLIB1. 
12.3.8.4 ALTOBJ Command 


The ALTOBJ command specifies a library synonym to replace the Initially defined library syno- 
nym ALTOBJ. The syntax of the command Is as follows: 


<altobj command> ::= *ALTOBJ <libname> 


The syntax diagram Is as follows: 


The libname parameter Is a library synonym that replaces synonym ALTOB\ as the fourth 
entry in the library table. Wnen the ALTOBJ command is used, it should precede the ADD 
commands that define the nodes of the process configuration. 


Altobj command: 
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Example: 


*ALTOBJ OBJLIB2 


The example command replaces ALTOBV as the library synonym in the fourth entry of the 
library table with OBJLIB2. 


12.3.8.5 SETLIB Command 


The SETLIB command defines a library synonym and assigns a value to the synonym. The 
syntax of the command is as follows: 


<setlib command> ::= *SETLIB <libname><value> 


The syntax diagram is as follows: 


Setlib command: 


The libname parameter is a library synonym that meets the requirements for a Pascal identi- 
fier (paragraph 3.2.1). However, only the first eight characters are used by CONFIG. The 
value is the pathname of the library file to which the synonym applies. 
Example: 

*SETLIB SRCLIB3 DSC2.PASCAL.SOURCE.GARY 


The example command accesses the operating system to assign the value DSC2.PASCAL. 
SOURCE.GARY to SRCLIB3. 


The SETLIB command should be used with caution to prevent defining too many synonyms 
for the library file pathname. Depending on the operating system, the synonym may have 
to be redefined to the operating system when the process configuration is accessed by a 
future run of CONFIG, 


12.3.8.6 DEFAULT SOURCE Command 
The DEFAULT SOURCE command specifies the library synonym for the default source library. 


The synonym applies to modules defined by subsequent ADD commands, The syntax of the 
command is as follows: 


<default source command> ::= *DEFAULT SOURCE <libname> 


The syntax diagram is as follows: 


Default source command: 


*DEFAULT SOURCE 
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The libname parameter is the synonym having the pathname of the library as Its value. Synonym 
MASTER is the initially defined alternate source ilbrary synonym; however any library synonym 
may be used. The DEFAULT SOURCE command does not alter the stored process configuration; 
it only applies to the current run. 


Example: 

*DEFAULT SOURCE SLIB1 
The example command specifies library synonym SLIB1 as the default source library. Source 
locations that do not explicitly include a library synonym use SLIB1 as the library synonym 


until the default value is changed by another DEFAULT SOURCE command. The default source 
library synonym is LIBRARY until the first DEFAULT SOURCE command is entered. 


12.3.8.7 DEFAULT OBJEC] Command 


The DEFAULT OBJECT command specifies the liprary synonym for the default object library. 
The syntax of the command Is as follows: 


<default object command> ::= *DEFAULT OBJECT <libname> | 
*DEFAULT OBJECT NONE 


LIBNAME 


The syntax diagram is as follows: 
Default object command: 


*DEFAULT 
OBJECT 


The libname parameter ts the synonym having the pathname of the library as Its value. Synonym 
OBULIB is the initially defined alternaie object library synonym; however, any library synonym 
may be used, 


When keyword NONE is entered instead of a libpame parameter, the initial default is restored. 
The DEFAULT OBJECT command does not alter the stored process configuration; it only applies 
to the current run. 


Prior to the entry of a DEFAULT OBJECT command, and subsequent to the entry of a DEFAULT 
OBJECT NONE command, no object locations are shown in the representation of the process 
configuration on the OUTPUT file, and ALTOBJ Is the default object library on which object 
modules are stored. 


Example: 
*DEFAULT OBJECT OBJL1 


The example command specifies library synonym OBJL1 as the default object library. Object 
locations that do not explicitly include a library synonym use OBJL1 as the library synonym 
until the default value is changed by another DEFAULT OBJECT command. 
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12.3.9 Text Editing 


CONFIG provides a line-oriented text editing capability for editing source modules, whether 

or not these modules apply to a node or nodes of the current process configuration. The EDIT 
command specifies the source module to be edited and copies the file with specified alterations 
to another location. Insert commands insert one or more source lines at a specified point and 
Replace commands replace specified source lines with one or more source lines. 


12.3.9.1 EDIT Command 


The EDIT command specifies a source module to be edited and copies the file with specified 
alterations to another location. The EDIT command for a source module that is specified as 
a node of the current process turns on the CHANGED flag for that node. The syntax for the 
command is as follows: 


<edit command> ::= *EDIT [ <name>][ <location>] TO <location2> 


The syntax diagram is as follows: 


Edit command: 


LOCATION2 


LOCATION! LOCATION2 


The name parameter is the node name corresponding to the source module to be edited. 
The location parameters are in the format defined in paragraph 12.3.3.1 for the BUILD PROCESS 
command. The source module at location’ is edited and the result is copied and cataloged 
at location2. 
; Ww 
When the name parameter is used, the source module associated with the named node of 
the current process configuration is edited and the CHANGED flag for the node is turned on. 
The location for the source module of the node is changed to location2. 


When the name parameter is omitted, the source module at location’ is edited. The source 
module may or may not be associated with the current process configuration; however the 
CHANGED flag is not set in either case. 


Example: 
*EDIT INTERACT TO <LIBRARY,NEWMOD> 


This command specifies that the Insert and Replace commands that follow apply to the source 
module corresponding to node INTERACT. The edited module is cataloged as member NEWMOD 
of the library corresponding to library synonym LIBRARY and becomes the source module 

for node INTERACT. The source location for node INTERACT becomes LIBRARY, NEWMOD 

and the CHANGED flag is set for the node. 


*EDIT <LIBRARY, ORIG> TO <SCRLIB1, NEWMOD> 
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This command specifies editing the source module at location <LIBRARY, ORIG> and cata- 
loging the resulting module at location <SCRLIB1, NEWMOD>. The source module at location 
LIBRARY, ORIG may or may not be a node of a process configuration; the flags of process 
configuration nodes are not altered by this command. 


12.3.9.2 INSERT Command 


The Insert command specifies inserting one or more Source lines in the source module identi- 
fied in the preceding EDIT command. The lines to be inserted follow the command and the 
command parameter specifies the line in the source module after which the lines are inserted. 
The syntax of the command is as follows: 


<insert command> ::= -<line> 


The syntax diagram is as follows: 


(=) 


The line parameter is the line number of the line of the source module following which the 
subsequent lines are inserted. More than one Insert command may be supplied for editing 
a source module; these may be interspersed with Replace commands described in the next 
paragraph. These commands must be ordered by line number, in ascending numerical order. 


Insert command: 


Example: 
- 40 


Insert the lines that follow this command in the source module after line 40. 


12.3.9.3 REPLACE Command 


The Replace command specifies replacing one or more source lines in the source module 
identified in the preceding EDIT command. The lines that replace the source module lines 
follow the command and the command parameters specify the lines to be replaced. The syntax _ 
of the command is as follows: 


<replace command?> ::= -<line 1>,<line2> 


The syntax diagram is as follows: 
Replace command: 


& LINE! & LINE 2 


The line1 and line2 parameters are the line numbers of lines in the source module, The range 
of source lines starting with line1 and extending through line2 are replaced by the lines that 
follow the Replace command. The number of replacing lines may be larger, smaller, or equal 
to the number of replaced lines. More than one Replace command may be entered for editing 
a source module; these may be interspersed with Insert commands previously described. These 
commands must be ordered by line number, in ascending numerical order. 
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Example: 


Replace lines 50, 60, and 70 with the lines that follow this command. 


12.3.10 Required Files 


CONFIG requires seven files, listed in table 12-2. When the files are not specified, CONFIG 
uses the default names. The default names consist of the file names (or the first six characters 
of file names longer than six characters) with the digits of the station number concatenated 

at the right. For example, the default name for the file supplied to the compiler is COMPF108 
when CONFIG is executed at terminal STO8. 


Table 12-2. Files Required for CONFIG 


Name 1/0 Description 

INPUT | Contains CONFIG commands. ww 
OUTPUT fe) Contains CONFIG listings. 

SYSMSG O Contains system messages. 

COMPFILE O Contains source code selected by CONFIG for compilation. 
CRTFILE fe) Contains input commands and error messages. 

CPTEMP 170 Contains deferred processing commands. 

OBJECT 1/0 Contains object file from CODEGEN and object file written 


by CONFIG. 


12.3.11 Executing CONFIG 


The Configuration Processor may be executed using either of two SCI procedures: XCONFIG 
and XCONFIG1. Procedure XCONFIG requests access names for all files; procedure XCONFIG1 
assigns the user's terminal for three of the files, for interactive entry of commands. Either 
procedure name may be entered at any time TAXO requests a command. When XCONFIG 

is entered, TAXO requests the following information: 


COMMANDS: 
CRT FILE: 
LISTING: 
MESSAGES: 


MEMORY: 


All but two of the items require access names of devices or flies. The file names referred 
to are listed in table 12-2. The items are as follows: 


e COMMANDS - The access name of a file (file name INPUT) that contains CONFIG 
commands or of a device at which commands are to be entered. 
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CRT FILE - The access name of a device (file name CRTFILE) to display commands 
and error messages, 


LISTING - Access name of a device or file (file name OUTPUT) for listing. 

MESSAGES - Access name of a device or file (file name SYSMSG) for system messages. 
SOURCE - Access name of a file (file name COMPFILE) for source file output. 

OBJECT - Access name of a file (file name OBJECT) for object file. 


° 


° 


The response to the MODE item is BATCH, FOREGROUND, or BACKGROUND, specifying 

the mode of execution. The background and foreground modes are as defined for the compiler, 
paragraph 11.5. The batch mode is described in a subsequent paragraph. The MEMORY item 
requires an ordered pair specifying stack and memory requirements as for the compiler. 


When XCONFIG1 is entered, TAXO requests the following information: 


LISTING: 
SOURCE: 
OBJECT: 

MEMORY: 


Items COMMAND, CRT FILE, and MESSAGES are assigned to ME, the synonym for the user's 
terminal. The MODE Item Is not requested; FOREGROUND is supplied by the system. Other 
items are identical to those for the XCONFIG procedure, The two procedures may be used 
interchangeably; when the command file, display file, and system message file would be as- 
signed to the user's terminal, use XCONFIG1; otherwise, use XCONFIG, 


The distinction between the run of CONFIG that prepares the source file for compilation and 
the run of CONFIG that splits the object file and catalogs the object modules is the command 
file. When the command file is the deferred processing command file written by a previous 
run of CONFIG (or a command file that contains those commands), the deferred processing 
is performed. Otherwise, the initial processing is performed. 


The condition code $$CC is set by CONFIG to indicate the termination status as follows: 


0000 - Normal! termination. 

40004¢ - Warning conditions detected. 
60004¢ - Errors detected. 

C000 y¢ - Abnormal termination, 

NOTE 


Refer to paragraph 11.6 for further information on $$CC. 
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Procedure XTIP does not execute CODEGEN when the SILT phases detect errors. When com- 
piling a program that consists of many modules that are to be cataloged as a library by CONFIG, 
and CODEGEN is executed, the result may be that several of the resulting modules are error 
free, and would not need to be recompiled. Procedures XSILT and XCODE may be executed 
instead of procedure XTIP to execute CODEGEN unconditionally. These procedures may be 
used with CONFIG, 


CONFIG may be executed using a batch stream and may usually be executed more easily 

in a batch stream. Figure 12-10 shows a sample batch stream to execute CONFIG, SILT1 

and SILT2, and the deferred processing run of CONFIG. When executing this batch stream, 

the user should enter a WAIT command immediately following the XB command; the CONFIG 
commands are entered interactively at this point. Press the ENTER key at the terminal following 
the last command to terminate entry of commands and continue execution. The batch stream 
creates the required files on a user directory; enter the actual pathname of the directory 

in the first SYN command. 


Notice that the synonym LIBRARY is assigned to the pathname of the user directory with 
«SRC concatenated at the right. This will work only if the source modules being supplied as 
input to CONFIG have been cataloged as members of a library having that pathname or if 
the locations in the process configuration do not use the default library synonym, LIBRARY. 

The location parameters of the BUILD PROCESS, ADD, and CAT PROCESS commands may 
be used to specify pathnames other than those supplied in the batch stream, as required. 
Alternatively, file names may be modified to be compatible with the batch stream. 


12.4 Split Program Utility 


The split program utility SPLITPGM divides a Pascal source program into modules and catalogs 
these modules as members of a library file. SPLITPGM also writes an Input command file for 
CONFIG which contains the commands required to build the process configuration correspon- 

ding to the original source program structure. 


A program should meet the requirements for submission to CONFIG (paragraph 12.3.2) because 
the normal use of the library provided by SPLITPGM is as input to CONFIG. Specifically, 
SPLITPGM requires the forward declarations and the indentations that CONFIG also requires. 
The required indentations may most easily be provided by submitting the source code to 
NESTER prior to executing SPLITPGM. | 


Adding the forward declarations to the output of NESTER may be done using the text editor 
The listing of the output NESTER in figure 10-2 includes the following procedure declaration 
on line 420: | 


PROCEDURE GETLINE (VAR THISLINE : LINE); 
This becomes a forward declaration when the keyword FORWARD is added, as follows: 
PROCEDURE GETLINE (VAR THISLINE : LINE); FORWARD; 


The declarations and statements for the procedure require a heading that does not include 
the parameter list. This may be added as a comment to promote documentation of the program, 
as follows: 


PROCEDURE GETLINE; (*VAR THISLINE ; LINE*) 
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Figure 12-10. Batch Stream for Separate Compilation 
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Adding forward declarations for functions is similar. The keyword FORWARD follows the para- 
meter list and the function result type. The routine heading includes only the function name, 
not the parameter list and function type. 


12.4.1 Split Program Command 


The Split Program Command specifies the node name for a source module at the beginning 
of each module. The syntax of the command is as follows: 


<split program command> ::= "& <name> | (*& <name>!" ; " & <name> 


The syntax diagram is as follows: 


(«s) 


The name parameter Is the name that SPLITPGM supplies in the command file as the node 
name. Unless the CHECK flag for each node is turned off, CONFIG checks that the node name 
is identical to the IDT of the source module. Therefore the name parameter in the command 
should be the IDT of the module. All name parameters for the modules of a program should 

be unique in the first six characters because SPLITPGM uses the names as the names of mem- 
bers of LIBRARY. The split program command for a module must precede the heading 
(PROGRAM, PROCEDURE, or FUNCTION heading) of the module and any comments or option 
comments that precede the heading. 


Split program command: 


Example: 
"& GETLINE 


This command should be inserted between the forward declaration and the heading of proce- 
dure GETLINE, 


12.4.2 Input Example 


The result of changing procedure headings to forward declarations and adding procedure 
headings and split program commands in the example program is shown in figure 12-10. 
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12.4.3 Library and Files 


SPLITPGM catalogs the source modules defined by the split program commands as members 
of a library file identified by library synonym LIBRARY. The user must assign the pathname 


of the desired library to synonym LIBRARY. 


The files used by SPLITPGM are: 


INPUT | Contains Pascal program to be split. 
OUTPUT oO Contains CONFIG commands to build process configuration. 
SYSMSG O Contains system messages. 


12.4.4 Execution 


The XPT procedure may be used for executing the split program utility SPLITPGM. Enter XPT 


when TAXO requests a command and enter the following information in response to the requests 


of XPT: 


PROGRAM FILE: TIP PROGRAM 
TASK NAME OR ID: SPLITPGM 
INPUT: <input source file> 
OUTPUT: <output file> 
MESSAGES: ME 
MODE: FOREGROUND 
MEMORY: 2,2 


The input source file is the access name of the file to be split. It consists of the source file 
with commands inserted at the proper places (paragraph 12.4). The output file is the access 
name for the file to which SPLITPGM writes CONFIG commands to build the process configu- 
ration for the program to be split. The modules are cataloged as members of the library the 
pathname of which has been assigned to synonym LIBRARY. 


SPLITPGM divides the source program into modules as defined by the commands and the 
BEGIN and END keywords that are the limits of the statement portions of the modules. The 
contents of the resulting module may be listed by submitting a *LIST ALL command to the 
configuration processor. Figure 12-8 shows the contents of each source module of the ex- 
ample program shown in figure 12-11. 


The following batch stream executes SPLITPGM and CONFIG to build the process configura- 
tion for the program being split: 


BATCH 

SYN LIBRARY = "<pathname>" 

XPT PF=".TIP,PROGRAM",T="SPLITPGM", l="<input source file>", 
O="<output file>", MEM="2,2" 

XCONFIG COMMANDS="<output file>", LISTING="<listing file>" 
EBATCH 


The pathname is the pathname of the directory of the library to which the source library is 
to be written. The listing file is the access name of a device or file for the CONFIG listing. 
The input source file and the output file are as defined previously. 
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“S LABELS 
PROGRAM LABELS 00000010 
(Be en a a ee a a ------ OOOOODOZO 
PROGRAM LABELS; 00000030 
PURPOSE THIS PROGRAM READS AN ADDRESS LABEL AND PRINTS MULTIPLE 00000040 
COPIES OF THAT LABEL. e80000050 
FILES USED: INPUT —- FOR USER-SUPPLIED PARAMETERS AND THE LABEL OOQ00060 
CPTFIL - USED FOR PROMPTING INFUT 00000070 
OUTPUT - MULTIPLE COPIES OF THE LABEL QOOOOU:30 
PROCEDURES CALLED : INTERACT, READANDFRINT Q000007%0 
oo ee ee ee enna ) OOOIILOO 
VAR CRTFIL = TEXT 3 (#USED TO FROMPT INFUT#) 00000110 
CHARSPERLINE =: INTEGER: (#NUMBER OF CHARACTERS PER LINE) OOOO01Z0 
LINESPERLABEL : INTEGER; (#NUMBER OF LINES FER LABEL*) 00000130 
COPYCOUNT : INTEGER: (*#NUMBER OF COPIES TO PRINT*®) 000001 40 
PROCEDURE INTERACT: FORWARD; 
"& INTERACT 
PROCEDURE INTERACTS eo0001S0 
( Hr rn a re nee nese Pe ee me O00001460 
PROCEDURE INTERACT; O0000170 
PURPOSE =: INTERACT PROMPTS THE LISER, REQUESTING CERTAIN INFUTS. QVOOOO13O 
OUTPLITS = CHARSPERLINE - NUMBER GF CHARACTERS PER LINE QO000190 
LINESPERLABEL - NUMBER GF LINES PER LABEL OOOOH2Z00 
COFYCOUNT - NUMBER CF LABELS TO FRINT 90000210 
etnies tenaieteeiensenteuienteneiesieoententenseneetenteetententetaneatieetnateteetesteesientententechentenehentachentantetententeateahesteniantaseaneneetentetaaeteeieaaa *) QOOOOO22 
BEGIN (# INTERACT *#) 00000230 
REWRITE( CRIFIL )3 ‘ O0O00Z4O 
WRITELN( CRTIFIL, “HOW MANY CHARACTERS PER LINE?’ )3 OOKOOZEG 
RESETCINPLUT): READ( CHARSPERLINE )3 ‘ QOOKOZ40 


WRITELN( CRTFIL, “HOW MANY LINES PER LABEL?” )3 

READLN; READ( LINESPERLABEL ); 

WRITELN( CRTFIL, “HOW MANY LABELS?” )3 

READLN; READ( COPYCOUNT )$ WRITELN(CRTFIL, “NOW INPUT THE LABEL” )3$ 3 
ENDS (# INTERACT# ) OoOOOO 210 
PROCEDURE READANDPRINT; FORWARD; 
“SREADANDFR INT 
FROCEDURE READANDFRINTS 
PROCEDURE REALDANDPRINT$ 
PURPOSE = READANDPRINT READS A LABEL AND PRINTS MULTIPLE lore: 
PROCEDURES CALLED : GETLINE, FPRINTLABEL 


O00 


LINE = PACKED ARRAY (.1..CHARSPERLINE.) OF CHAN; 


VAR 

LABELIMAGE : ARRAY (.1..LINESPERLABEL.) WF LINES QOOOOE1O 
PROULEDURE GETLINE(VAR THISLINE = LINE)$ FORWARDS 2 2 2 2 2 2 2 2 OMOHKE 
“2S GETLINE 
PROCEDURE GETLINE(#VAR THISLINE : LINE®)$ 
PROCEDURE GETLINEs 
PURPOSE : GETLINE REALS SINGLE LINE UF A LAGEL. IOC 
INFUTS +: (SHARSPERLINE - NUMBER CF CHARACTER: FER LINE OOOOO440 


OUTPUT THISLINE - THE LINE THAT WAS RESD. QOOGO87O 
a ee Oe * OOGOOSSO 
VAR CH + INTEGERS GOOR04 20 
BEGIN CR#DETLINE® ) OvoOIosog 

READLN; TH t= 13 OOOOOER LO 

OOOO 2O 


WHILE CH <= CHARSFERLINE AND NOT EGLUNCINPUT) D0 BEGIN 


READ( THISLINE(.CH.) )$ CH ¢= CH + 15 
ENDS (#FILL IN REET OF LINE WITH BLANK) 


FIR J = CH TO CHARSPERLINE DO THISLINE(. I.) = ° 3 


OOVOOL2O 


Figure 12-11. Example of Input to SPLITPGM (Sheet 1 of 2) 
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END C#GETLINE s) QOO0095460 
PROCEDURE PRINTLABEL; FORWARDS 
"&PRINTLABEL 
PROCEDURE PRINTLABELS OQ000S70 
( frit ree QOOO0 S20 
PROCEDURE PRINTLABELSs QOOOOS 70 
PURPOSE : PRINTLABEL PRINTS ONE COPY OF THE LABEL. 00000600 
INFUTS & LINESFERLABEL —- NUMBER CF LINES FER LABEL 00000610 
CHARSPERLINE - NUMBER OF CHARACTERS PER LINE OOOOO620 
LABELIMAGE - THE LABEL TO BE FRINTED YOVOGOE30 
nt rene *) 00000640 
BEGIN C#PRINTLABEL# ) 00000650 
FoR © := 1 TO LINESPERLABEL DO BEGIN 00000660 
FOR CH := 1 TO CHARSPERLINE 00 WRITE( LABELIMAGE(.L.)(.CH.) 23 00000670 
WRITELN; END; QOOKOEZO 
ENDS (#FPRINTLABEL# ) OOOGOEIO 
BEGIN (#READANDPRINT*) 90000700 
FOR L t= 1 TO LINESPERLABEL DO GETLINE( LABELIMAGE(.L.) )3 00000710 
FOR K := 1 TO COPYCOUNT DO PRINTLABEL: 00000720 
END; ( *READANDFR INT # ) 00000730 
BEGIN (*LABELS* ) 00000740 
INTERACT$ READANDPRINTS 00000750 
END. (*LABELS« ) 00000760 


Figure 12-11. Example of Input to SPLITPGM (Sheet 2 of 2) 


The OBJECT DIRECTORY is the pathname of the directory for the object library. The MODE 
item is either FOREGROUND or-BACKGROUND, as described for the compiler, paragraph 11.5. 
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12.5 SPLIT Object Utility 


The split object utility SPLIT divides the object modules in an object file into members of an 
object library. This function is performed automatically by CONFIG when the object file is 
input to the deferred processing run of CONFIG. SPLIT may be executed to perform the same 
function on an object file written by CODEGEN and not submitted to a deferred processing 
run of CONFIG, 


The library synonym that SPLIT uses for the object library is OBJLIB. 


SPLIT uses the following files: 


OBJECT I Contains object file to be split. 
OUTPUT .e) Contains error messages. 
SYSMSG e) Contains system messages. 


Pascal software includes an SCI procedure, XSPLIT, for executing the split object program, w 
SPLIT. Enter XSPLIT at any time TAXO requests a command. TAXO requests the following 
information: 


OBJECT FILE: 
OBJECT DIRECTORY: 
ERROR LISTING: 
MESSAGES: 
MODE: 
Three of the items require access names of devices or files, as follows: 
e OBJECT FILE - The access name of the object file as written by the compiler. 
- ERROR LISTING - The access name of the device or file for the error listing. 


MESSAGES ~- The access name of the device or file for the system messages. 


SS 
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13 REVERSE ASSEMBLER 


13.1 General 


The reverse assembler (RASS) provides a TAXO Assembly Language source program that 
corresponds to an object module written by the Pascal compiler. The output of RASS may 

be directly assembled. Submitting an object module to RASS to obtain the assembly language 
source code allows the user to perform manual optimization when appropriate. The assembly 
language source code allows debugging at the machine language level. 


13.2 Required Files 


RASS requires the following files: 


OBJECT | Contains the object file to be processed. 
OUTPUT oO Contains the assembly language listing. 
SYSMSG © Contains system messages. 


13.3 Executing the Reverse Assembler 


Pascal software includes an SCI procedure XRASS for executing the reverse assembler, RASS, 
Enter XRASS at any time TAXO requests a command. TAXO requests the following information: 


OBJECT: 
LISTING: 
MESSAGES: 
MODE: 
MEMORY: 


The first three items require access names of devices or files, as follows: 


° OBJECT - The access name of the object file (input). 

= LISTING - The access name of the device or file for the listing (both errors and assembly 
language source). 

? MESSAGES - The access name of the device or file for the system messages. 


The MODE may be either FOREGROUND or BACKGROUND, as described for the compiler 
(paragraph 11.5). The MEMORY item is an ordered pair specifying stack and heap for the 
execution of RASS. 


13.4 Example Listing 


Figure 13-1 is an example of the assembly listing produced by RASS. The program listed con- 
sists of three modules. The listing for each module begins with the IDT directive that contains 
the module name. This is followed by a comment line that provides a heading for the columns 
at the right. 
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Following the heading are the PSEG directive, the data directives, the DEF directive, and 

the REF directives. The location counter value is shown for each data word and the contents 
also are shown, both in hexadecimal. When the data word represents a relocatable address, 
the hexadecimal value is followed by a plus sign (+). The representation of the word asa 

pair of ASCII characters is shown at the end of each line. Each unprintable character is shown 
as a period (.). 


Following the directives, another comment provides a heading for the instructions that follow. 
For each instruction the listing shows the location counter value and the value of the word 
or words of the machine language instruction in hexadecimal format. The file that contains 
the listing (OUTPUT) may be used as a source code file for the assembler. The values that 
appear at the right end of most lines are treated as comments by the assembler. 


RASS is specifically designed to process the object files written by CODEGEN and has limited 
application for processing other object code files. It recognizes only the object output tag 
characters and operation codes supplied by CODEGEN. The directives are supplied in accor- 
dance with Pascal format, since object code seldom contains enough information to explicitly 
identify the directives. When processing object code that contains a tag character or opera- 
tion code that RASS does not recognize, an error termination occurs. Even if the object cod 
does not contain unrecognizable data, only those words that RASS correctly interprets as 
instructions will be correctly listed. 


The first eight bytes of each module contain the module name (program, procedure, or function 
name). The next two bytes contain the nesting level: 1 for the main program, 2 for procedures 
and routines declared in the main program, etc. The Pascal source program corresponding 

to the example in figure 13-1 is shown in figure 9-1. It consists of main program DIGIO that 
declares procedures CCHAR and CINT. Therefore the three modules in figure 13-1 are CCHAR 
and CINT at level 2 and mainprogram DIGIO at level 1. 


Careful comparison of the source code in figures 9-1 and 13-1 shows how the Pascal compiler 
implements Pascal! statements in assembly language. Manual optimization of the assembly 
language source code may be performed by omitting any redundant source lines and reas- 
sembling the object module. 
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Figure 13-1. 


INT 


PSEG 
NATA 
DATA 
DATA 
BATA 
DATA 
DATA 
TATA 
TATA 
TATA 
DEF 

REF 

REF 


EQU 
RL. 
NATA 


“CHAR e 


7ABaS 
>4841 
>5220 
>2020 
>O0O2 
>0030 
DOOR? 
LOO072 
alelelela) 
CCHAR 
ENT$S 
RET$S 


$ 

@ENTS$S 

>003A 

@>0034(R9),RS 

#R5 

R4,>0001 
@>0036(RI),@>0028 (RY) 
$ 
R46, @>O0038 (RY) 
LOO72 

Ré,R5 

R5,1 

RS, >0026 
R9,RS 

#RE, ClOOOA 
LOO6E 

Ré,R5 

R5,1 

RS, 0026 
R?,RS 

#R5, @DO00C 
LOOG6E 
@>0034(RY),RS 
R3,>000A 
#R5,R2 

R4é,R5 

RS, i 

R5,>0026 
R9,RS 

#RS,R4 
R4,>FFRO 
@>0034(RP),R5 
R4,#R5 


@RETSS 


“CINT 


24349 
>4E54 
22020 
32020 
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RASS Listing Example (Sheet 1 of 4) 


LG 


0000 
0002 
0004 
00046 
0008 
O00A 
000k 
QOOE 
0010 


LC 


0012 
on1é 
0018 
001ic 
OO1E 
on22 


0028 
o002c 
O02E 
0030 
0032 
0036 
0038 
003C 
OO3E 
0040 
0042 
0046 
0048 
004C 
Q04E 
0052 
0056 
0058 
oo05a 
oosc 
0060 
0062 
0064 
0068 
0046C 


OO4KE 
0070 


0072 


Lc 


0000 
OOO? 
a004 
Q006 


HEX 


4343 
4841 
5220 
2020 
0002 
0030 
0039 
0072+ 
0000+ 


WORD(S) 


06A0 
0038 
C169 
04D5 
0206 
CAE9 


BA46 
1522 
C146 
OAIS 
0225 
Alas 
ee15 
1113 
C146 
OALS 
0225 
A149 
8815 
1510 
C169 
0203 
38D5 
7146 
OAIS 
0225 
A149? 
A115 
0224 
C1é9 
C544 


o&8é 
10DB 


0460 


HEX 


4349 
4E54 
2020 
2020 


©0000 
0034 


0001 
0036 


0038 


0026 


O00A+ 


0026 
o00C+ 


0034 
000A 


0026 


FFDO 
0034 


0000 


CHAR 


CI 
NT 


0038 


Nnooow 


CINT 


LOOSE 


LOOKE 


* 


LOOOO 


Nnooos 
alelateys) 
Nooor: 


n0014 
noo1é 
noo1ws 
DOOLA 


NATA 
DATA 
ATA 
RATA 
DEF 
REF 
REF 
REF 
REF 
REF 


EQu 
RL 
TATA 
mov 
pny 
a 
RL 
MoV 
Cc 
JEt 
MOV 
ie i 
BLWP 
EQu 
Mov 
LI 
RL 
moV 
Al 
MOV 
LI 
BL 
MOV 
MOV 
Mav 
BL. 
EQu 
R 
ENnI 
IOT 


PSEG 
DATA 
ATA 
TATA 
DATA 
DATA 
DATA 
nAaTA 
TATA 
TATA 
TATA 
nATA 
ATA 
TATA 
DATA 
NATA 
TATA 
TATA 
TATA 
TATA 
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0002 
>O0000 
LOOKE4 
hoooo 
CINT 
ENTSM 
DIV¢ 
INT 
PUTCHS 
RETSM 


$ 

@GENTSH 

>oOd2C 
@>0002(R12),R15 
@>0028(R9),RS 
R12, >000A8 

@nivs 

R7, @>002A (RY) 
@>002A(RY), @DOOOA 
L.OOZE 
@>002ZA(RY),@>00272 (R10) 
Rii,CINT 

R10 

$ 

@>O0ZER(RY),RES 
R12, >0008 

@nIvs 

R&,R6 

Ré&, 20080 

R4,R8 

Riz, 20100 

e@DIVs 

Re,R5 
@>0040(R15),R12 
RS,R7 

@PLITCHS 

$ 

@RETSM 


“DIGIO 


>4449 
>4749 
2>4F20 
>2020 
>OOO 
20060 
>494eE 
>S055 
7H420 
22070 
noooc: 
2OOO? 
>OOIS 
>454E 
E44E 
>5220 
23120 
>R44F 


2085 


RASS Listing Example (Sheet 2 of 4) 
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0008 
O008 
000c. 
OQOOE 


ke 


0010 
OO1l4 
0016 
oo1A 
OO1E 
0022 
0026 
002A 
0030 
0032 
0038 
003. 


OO3E 
0042 
0046 
004A 
004 
oo50 
OOR2 
oO056 
OO5A 
oosr 
0060 
0042 


OO06E 


LC 


O000 
0002 
0004 
0006 
0008 
ONOA 
oo00r: 
OOOE 
0010 
OoOLz 
O0O14 
OO14 
OO1E 
Oo1a 
OO1L 
OOLE 
o070 
oOo22 


OO24 


0002 
0000 
O066+ 
0000+ 


WORD(S) 


O6A0 
002C 
CEC 
C229 
az0c 
O6A0 
CA47 
S829 
1206 
CAAY 
O20B 
040A 


C229 
o20C 
O6A0 
cise 

22h 
C204 
o20C: 
O46A0 
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OOZEA 
OOZES 
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002C 
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0032 
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0034 
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OO 
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14 LINKING AND EXECUTING PASCAL TASKS 


SS 


14.1 General 


This section describes the runtime options provided for Pascal and the linking procedure required . 


for these options. This section also describes the procedures for executing Pascal tasks under 
TAXO, including the debug mode. Finally, the section discusses runtime errors and describes 
the abnormal termination dump provided to assist in debugging the errors. 


14.2 Runtime Options 


The runtime options closely relate to the operating system under which the Pascal task is 
to execute, as follows: 


2 Execution - 
e LUNO I/O capability 

2 Multitask capability 

Minimal runtime capability 

e Stand-alone execution 

Shared procedure capability 


Three runtime libraries are linked in various ways with the object code produced by the Pascal 
compiler to provide the options. The libraries are .TIP.OBJ, . TIP-LUNOBJ, and .TIP.MINOBJ. 
Table 14-1 lists the characteristics of each library, 


The runtime sizes shown in the descriptions of the options are minimum sizes; when the pro- 
grams incorporate additional features of the language, additional runtime code is required. 
Table C-1 lists additional features and the amount of additional code they require. The user 
can estimate the size of the total runtime code by adding the sizes from table C-1 to the 
minimum sizes shown for each option. When library .TIP.MINOBJ is not used, those sizes 
marked with an asterisk are included in the minimum runtime code size shown. 


Table 14-1. 


Option 
I/O access 


Files INPUT and 
OUTPUT 


Post-mortem dump 
Error diagnostics 


Heap allocation 


Probe displays 
Execute 


Bid using SCI 
or OCP 


Bid by another 
task 


Memory-resident 


task 


14.2.1 Execution 


Pascal Runtime Libraries 


-TIPLOBJ 
Library 


SCI synonyms 


Predeclared 


Linking option 
English messages 


Allocated at startup 


Optional 
Yes 


Yes 


No 


No 
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-TIP,LLUNOBJ 
Library 


LUNOs 


Predeclared 


Linking option 
English messages 


Allocated at startup 


Optional 
Yes 


Yes 
Yes 


No 


-TIP,MINOBJ 
Library 


LUNOs 


Optional 


Not available 
Code numbers 


Optional; static 
allocation 


Not available 
Yes 


Yes 


Yes 


Yes 


Execution of a Pascal task under TAXO with full runtime support using SCI synonyms to define 
the I/O files and devices requires linking the Pascal runtime library .TIP.OBJ with the object 
code provided by the compiler. The required linking is described in paragraph 14.3.1, and 

the procedure for executing the task is described in paragraph 14.3.2. This procedure results 
in linking at least 19,700 bytes of runtime code with the task. There is an overhead of 224 
bytes for each main program; this overhead includes stack space for the descriptors for pre- 
defined files INPUT and OUTPUT. Thus 20,000 bytes are required in addition to the object 
code for the task. Optionally, the dump routines may be omitted, reducing the size of the 
runtime code to 16,860 bytes. 


14.2.2 LUNO1/O 


Execution under TAXO with access to files and I/O devices by means of LUNOs requires 
linking the task with library .TIP,LUNOBJ. The linking procedure is described in paragraph 
14.3.3, and the resulting linked objec! code is executed using the procedure described in 
paragraph 14.3.4. The result is that the overhead is somewhat less than with the .TIP.OBJ 
library. Specifically, the size of the minimum runtime code is approximately 16,200 bytes, 
or 13,360 bytes if the optional dump routines are not included. Programming considerations 
for this option are described in paragraph 15.5. 
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14.2.3 Multitask Capability 


Multitask capability under TAXO is supported by a set of task routines that are available on 
either library, .TIP.OBJ or .TIP.LUNOBJ. However, any task that is bid by another task using 

a task control routine must have been linked using library .TIP,.LUNOBJ. Linking for a called 
task must be done as described in paragraph 14.3.3. When the initial task is linked using library 
-TIP.OBJ, the task is executed as described in paragraph 14.3.2; when the initial task is linked 
using library .TIP,LUNOBJ, the task is executed as described in paragraph 14.3.4. Similarly, 
the sizes of the runtime code depend on the linking procedure followed. The size information 
in either of the two preceding paragraphs applies, depending on the runtime library linked. 
Programming considerations for these tasks are described in paragraph 15.6. 


14.2.4 Minimal Runtime Capability 


A third runtime library, .TIP,MINOBJ, allows the user to include only the runtime code actually 
required, resulting in the minimal size of runtime code to be linked to the object code compiled 
by the Pascal compiler. Specifically, the minimal runtime library may be used for Pascal tasks 

that do not need the following: 


" Memory dump on abnormal termination 


e End-action error handling 
# Linkage to FORTRAN routines that perform |/O 


Stack and heap allocation at program initiation 
Access to SCI synonyms or parameters 
2 Error messages in English 


The procedure for linking with library .TIP,.MINOBJ is described in paragraph 14.3.11. A further 
reduction is possible when the predeclared files INPUT and OUTPUT are not required. This 

can be accomplished by omitting the main program routine, beginning execution in a procedure 
instead. Paragraph 15.4 describes the procedure for omitting the main program routine and 
designating a procedure for initial execution. 


The runtime code resulting from use of library .TIP.MINOB4J is at least 3930 bytes in size. 
The reduction obtained by omitting the routines required for predeclared files INPUT and 
OUTPUT results in a minimum of 1000 bytes of runtime code. Of this, approximately 800 bytes 
may be shared by multiple tasks; each requires 200 bytes that are not shared with other tasks. 
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14.2.5 Shared Procedure Capability 


The sharing of a procedure segment by several tasks is supported under the TAXO operating 
system. (In this context, the procedure segment is a reentrant module of executable code 

as defined for TAXO rather than a Pascal routine.) The linking procedure for execution under 
TAXO is described in paragraph 14.3.15. The size of the runtime code is not affected by 

the sharing of procedure segments; however, sharing procedure segments saves memory 
space that might otherwise be required for additional copies of the segment. 


14.3 Linking and Executing 


This paragraph describes linking procedures for runtime libraries .TIP.OBJ, .TIP,LLUNOBY, 

and .TIP.MINOBJ, and for execution procedures for tasks linked by the procedures. Linking 
is performed by the link editor of TAXO, which is executed using the SCI procedure XLE des- 
cribed in the TAXO Link Editor. The procedure requests the following information: 


CONTROL ACCESS NAME: 
LINKED OUTPUT ACCESS NAME: 
LISTING ACCESS NAME: 

PRINT WIDTH: 


The CONTROL ACCESS NAME is the pathname of the link edit control file. The contents of 
this file differ according to the linking option required. Typical contents of the control file 
for each option are shown in the following paragraphs. The LINKED OUTPUT ACCESS NAME 
is the pathname of the file on which the linked output is to be written. The LISTING ACCESS 
NAME is the pathname of the file to which the link map listing is to be written. The PRINT 
WIDTH is the line length of the lines of the listing; the default value (80) is normally used. 


14.3.1 Linking for TAXO Execution Using SCI Synonyms 


The procedure in this paragraph applies to a Pascal task to be executed under TAXO. This 
task performs I/O operations using SCI synonyms for access to files and/or devices. The 
resulting task cannot be bid by another task (a cooperating task). 


The contents of the link edit control file for this type of linking operation are listed, with optio- 


nal linking commands enclosed in brackets ([ ]). The file should contain the following: 


[ FORMAT <object format>;] Optiona! format of linked object code 

[ LIBRARY <user library>;] Optional user library 

LIBRARY .TIP.OBY; Runtime library 

PHASE 0, <task name>; Associates task with name 

INCLUDE (MAIN); Specifies required portion of runtime code 
INCLUDE <user object>; Pascal compiler output 


END 
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The first command is optional. When included, it specifies the format of the linked object file 
produced by the link editor. If it is entered with operands IMAGE, REPLACE, the link editor 
installs the task on a program file. When the FORMAT command is omitted, the linked object 
code is written on a sequential file in ASCII format. This code must be installed on a program 
file before execution. 


The second command is also optional. It is included when there is a user library that contains 
one or more modules required for the linking operation. 


The remaining commands are required. The task name operand of the PHASE command be- 
comes the task name on the linked object file. The object file operand of the INCLUDE com- 
mand is the pathname of the object file written by CODEGEN. 


Additional commands are required in the file in the following cases: 


° Program calls FORTRAN routines. 
od Probe data collection associated with the PROBES and/or PROBER option is desired. 
e An open-extend is desired for file OUTPUT or SYSMSG. 


When FORTRAN routines are called by the program, the FORTRAN library or libraries must 
be available for the linking operation. This requires one or more LIBRARY commands in the 
control file following the LIBRARY .TIP.OBJ command. The following commands access the 
two standard FORTRAN libraries: 


LIBRARY .FORTRN.OSLOBJ 
LIBRARY .FORTRN.STLOBJ 


Other FORTRAN routines are on nonstandard libraries. Ideally, only the LIBRARY commands 


for the library or libraries that include the required routines should be included. When a FORTRAN 


routine uses FORTRAN I/O, the following command must be included: 
INCLUDE (FTNIO) 


If compiler option PROBER or PROBES is turned on during the compilation, the following com- 
mands must be used to include the probe routines in the link: 


INCLUDE (PRBSINIT) 
INCLUDE (PRB$TERM) 


An additional command is required when option PROBER is turned on, as follows: 
INCLUDE (PRB$PERF) 

An additional command is required when option PROBES is turned on, as follows: 
INCLUDE (PRB$COMP) 


To cause the OUTPUT file to be opened with EXTEND instead of REWRITE, an additional com- 
mand is required, as follows: 


INCLUDE (EXTOUT) 
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To cause the message file SYSMSG to be opened with EXTEND instead of REWRITE, and addi- 
tional command is included as follows: 


INCLUDE (EXTMSG) 


Two additional options allow a modest reduction in the size of the runtime code by omitting 
the printing of the abnormal termination dump described in paragraph 14.7.3. One option 
saves 2340 bytes and provides optiona! printing of an unformatted dump when an abnormal 
termination occurs. The other option saves 2840 bytes but provides no dump when an abnor- 
mal termination occurs. For either option, substitute an INCLUDE (PSMAIN) command for the 
INCLUDE (MAIN) command (fifth command) in the control file. 


For the optional dump, add an INCLUDE command as follows: 
INCLUDE (SPRSDUMP) 


The optional dump is printed if byte 7 of the task segment contains a nonzero value. No dump 
is printed if this byte contains zero (the initial value). The contents of the byte may be altered 
by using the Modify Memory command. a 


For the option that omits the dump entirely, add an INCLUDE command as follows: 


INCLUDE (NODUMP) 


14.3.2 Executing Under TAXO Using SCI Synonyms 


An SCI procedure, XPT, is used to execute a Pascal program in which I/O access uses SCI 
synonyms. The user enters the procedure name XPT at any time TAXO requests a command. 
TAXO requests the following information: 


PROGRAM FILE: 
TASK NAME OR ID: 
INPUT: 

OUTPUT: 
MESSAGES: 

MODE: 

MEMORY: 


The first, third, fourth, and fifth items require access names of devices or files, as follows: 


. PROGRAM FILE - The access name of the program file on which the link editor wrote 
the linked object. 

© INPUT - The access name of the file or device for predeciared textfile INPUT. 

- OUTPUT - The access name of the file or device for predeciared textfile OUTPUT. 

e MESSAGES - The access name of the file or device for system messages. 


The second item, TASK NAME OR ID, is the task name supplied to the link editor, or the numeric 
ID associated with that name on the program file. The sixth item, MODE, is BACKGROUND, 
FOREGROUND, or DEBUG, specifying the mode of execution of the program. The background 
and foreground modes are as described for the compiler, paragraph 11.5. When the user enters 
DEBUG, TAXO places the program in the suspended state. This allows the user to enter any 

of the debug commands of SCI or any of the Pascal debug commands described in paragraph 
14.6.1. The MEMORY item requires an ordered pair specifying stack and heap requirements 

for the program. The default value is 1, 1 initially. Wnen a vaiue is specified, it becomes the 
default vaiue until another value is specified. 
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When a program accesses files other than the predeclared files INPUT and OUTPUT, the file 
name used in the source program is a synonym of the actual file pathname. The user may 
assign a pathname as the value of the synonym using an AS command prior to entering the 
XPT command. When no value has been assigned to the synonym prior to executing XPT, 

the runtime system assigns a default value. The default value is a pathname consisting of 

the file name with the station number appended. When the file name consists of more than 

six characters, the pathname consists of the first six characters of the file name and the station 
number. The resulting name is cataloged on the volume directory of the system disk. 


For example, if the program accessed files FILEA and DISPLAY and the program were executed 
from terminal STO3, the default pathnames would be: 


-FILEAO3 
-DISPLAO3 


The runtime system displays the following message on the system message file when the 
execution of the program is initiated: 


<progname> EXECUTION BEGINS 
When the program terminates normally, the runtime system displays: 

NORMAL TERMINATION 
Otherwise, the runtime system displays an error message. Following either termination message, 
the runtime system displays a summary of the approximate amount of stack and heap space 


used. 


A user-written procedure may be used instead of XPT to execute a Pascal task, provided 
the procedure contains SCI primitive .BID, .QBID, or .DBID to bid the task. 


14.3.3 Linking for TAXO Execution Using LUNOs 


The procedure in this paragraph applies to a Pascal task to be executed under TAXO that 
performs I/O operations using LUNOs for access to files and/or devices. The resulting task 
can be bid either by an SCI command or by another task (a cooperating task). 


The contents of the link edit control file for this type of linking operation are listed, with op- 
tional linking commands enclosed in brackets ([ ]). The file should contain the following: 


[ FORMAT <object format>;] Optional format of linked object code 

[ LIBRARY <user library>;] Optional user library 

LIBRARY .TIP.LUNOBJ; Runtime library 

LIBRARY .TIP.OBJ; Runtime library 

PHASE 0, <task name>; Associates task with name 

INCLUDE (MAIN); Specifies required portion of runtime code 
INCLUDE <user object>; Pascal compiler output 

END 


14/8 


When FORTRAN routines are called by the task, the FORTRAN library or libraries must be 
available for the linking operation. This requires the following LIBRARY commands in the con- 
trol file following the LIBRARY .TIP.OBJ command: 


LIBRARY .FORTRN.DXLOBJ 
LIBRARY .FORTRN.OSLOBJ 
LIBRARY .FORTRN.STLOBJ 


The other additional commands listed in paragraph 14.3.1 may be added to the control file 
also. When included, they provide the same capabilities. The same options for the abnormal 
termination dump apply. 


14.3.4 Executing Under TAXO Using LUNOs 


Tasks linked as described in the previous paragraph are executed using the XT, XTS, or XHT 
commands, The main difference between using these commands as described in the Opera- 
tor's Manual Il for assembly language tasks and using them for Pascal tasks is that Pascal 
tasks use the parameters as values that specify stack and heap requirements. 


The LUNOs used in the task (see paragraph 15.5) must be assigned prior to executing the 
task. Use the AL command or the AGL command described in the Operator's Manual Il. 


All three commands request the same information, as follows: 


PROGRAM FILE OR LUNO: 
TASK NAME OR ID: 

PARM 1: 

PARM2: 

STATION ID: 


The PROGRAM FILE OR LUNO is either the pathname of the program file on which the task 
was installed or the LUNO assigned to the program file. If the FORMAT IMAGE, REPLACE 
command was placed in the link edit file when the task was linked, the pathname entered 
as the LINKED OUTPUT ACCESS NAME (XLE command) may be used as the first item. 


The TASK NAME OR ID is either the task name or the installed ID of the task. The task name 
was specified in the PHASE command of the link edit file; the installed ID is listed on the link 
edit map when the link edit operation also installs the task. 


The PARM1 and PARN2 are integers that specify numbers of bytes of memory. PARM1 requests 
memory for stack space, and PARM2 requests memory for heap space. In each case, the 

item is interpreted as a number of bytes, not thousands of bytes as in the XPT procedure. 

When the default value of 0 is used, 1024 bytes are requested for stack and 1024 bytes are 
requested for heap. 


The STATION ID is the number of the station (terminal) with which the task is to be associated. 


SCI command XT is appropriate for 6 task that does not interact with the terminal. Command 
XTS is appropriate for an interactive task. XHT is appropriate for a task that is being debugged; 
the system places the task in the suspended state after bidding the task. The user may write 
an SCI procedure to assign the LUNOs and execute the task. 


Within the SCI procedure, the task must still be bid by a XT, XTS, or XHT command, not by 
the SCI .BID, .QBID, or .DBID primitives. 
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14.3.5 Linking Minimal Runtime 


To achieve minimal object code, the source code may be prepared in accordance with pro- 
gramming considerations described in paragraph 15.8. 


The size of the required stack and heap space is specified in an assembly language module 
that must be assembled and linked with the object code from the compiler. A default module 
is provided that specifies 1024 bytes each for stack and heap space. When the default size 
is not appropriate, prepare an assembly language source module as follows: 


IDT '<name>' Module name 
STACK EQU <stack size> Number of bytes for stack 
HEAP EQU- <heap size> Number of bytes for heap 

DEF STS$BOT,ST$STOP,HP$BOT,HP$TOP 

DSEG 

EVEN 
ST$BOT BSS STACK Bottom of stack region 

BSS 64 Stack margin area 
ST$TOP EVEN Top of stack region 
HP$BOT BSS HEAP Bottom of heap region 
HP$TOP EVEN Top of heap region 

DEND 

END 


The stack and heap sizes for the EQU statements may be obtained by executing the program 
under TAXO with full runtime, noting the sizes returned in the termination message. Another 
method is to first add the stack frame sizes of individual routines and then add two bytes 

to the total for overhead. The heap size is zero if routine NEW is not called in the task and 
the Pascal I/O routines are not used. If the default heap manager is used, add the sizes of 
heap requested. When the heap manager with space recovery is used, add the sizes of memory 
packets requested in NEW routine calls and not released by calls to the DISPOSE routine at 
the time when the highest number of packets are active. If only one packet is active at a 


time, use the size of the largest packet. Add an overhead of six bytes plus two bytes per 
active packet. 


Assemble the module, storing the module on a file to be accessed in the link edit control file 
during the linking operation. The link edit control file contains the following commands (with 
optional commands enclosed in brackets): ‘ 


[ FORMAT <object format>;] Optional format of linked object code 

[ LIBRARY <user library>;] Optional user library 

LIBRARY .TIP.MINOBJ; Runtime library 

LIBRARY .TIP.LUNOBJ; Runtime library 

LIBRARY .TIP.OBYJ; Runtime library 

PHASE 0, <task name>; Associates name with task 

INCLUDE (<main program>) "MAIN" 

[ INCLUDE <file name>;] Required for object module specifying stack and 
heap size 

INCLUDE <user object>; Pascal compiler output 

END 
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Another optional command provides a heap manager routine that recovers heap space when 
the DISPOSE routine ts called. The command is INCLUDE (DISPOSE). It is placed in the file 
following the INCLUDE (MAIN) command. When the optional! command is omitted, the default 
heap manager is included. The default heap manager includes a limited DISPOSE routine that 
only disposes of the most recently allocated packet. A call to DISPOSE that specifies any 
other packet does not release the packet's heap space. When the optional command is in- 
cluded in the link edit control file, a larger heap manager is included. This heap manager 
recovers heap space by releasing the space allocated to any packet specified in a DISPOSE 
call. 


14.3.6 Executing Minimal Runtime 


Executing Pascal tasks that have the minimal runtime code linked with them uses the same 
SCI commands as those used to execute tasks that access I/O devices and files with LUNOs 
(paragraph 14.3.4, 14.3.6, or 14.3.10). The parameter operands of the XT, XTS, or XHT SCI 
commands or of the EX or XT OCP commands are not used to specify stack and heap space, 
which are specified during the linking operation. When the tasks are compiled with a dummy 
main routine and execution begins in a procedure, parameters placed in the appropriate e» 
cute task command or bid task supervisor call are passed to the initial procedure. The declara- 
tion of that procedure must specify the desired parameters. Note that these parameters do 

not correspond to the parameters of the .BID SCI primitive, which should not be used with 
programs using the minimal runtime. 


14.3.7 Linking for Shared Procedures 


The TAXO operating system supports the sharing of procedure segments by several tasks. 

This requires that the code in the shared procedure segment be reentrant and that the link- 
ing of each task that shares the procedure allows the same amount of memory for the shared 
procedure, The object code compiled by the Pascal compiler is reentrant, and most of the 
modules in the runtime libraries are reentrant. This paragraph describes the linking of the 
shared procedures and of the tasks that share the procedures to provide the required memory- 
size compatibility. 


The first step is to determine which modules may be shared by performing a linking operation 
for each of the tasks as if there were to be no shared procedure segment. The tasks are 
linked as shown in paragraph 14.3.1 or 14.3.3 except that the INCLUDE (MAIN) command 

is replaced by an INCLUDE (P$MAIN) command. For minimal runtime, the linking is as shown 
in paragraph 14.3.11, with the appropriate substitution. 


Following the linking of each task, examine the link map listings of the tasks. In the module 

definition portion of the map, the modules that were actually linked are listed. Compare the 

module lists of each listing to identify the modules that can be placed in a shared procedure 
segment, The names of these modules (or the first six characters of the module names) are 

used to select the modules for the shared procedure. 
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The next step is to link the shared procedure. The link edit control file is as follows: 


[ FORMAT COMPRESSEDs] Optional format of linked object code 
[ LIBRARY <user library>;] Optional user library 

[ LIBRARY .TIP.MINOBY;] Optional runtime library 

[ LIBRARY .TIP.LUNOBJ;] Optional runtime library 

LIBRARY .TIP.OBJ; Runtime library 

NOAUTO 

PROCEDURE <procedure name>; Associates name with procedure segment 
INCLUDE <module name>; Shared module 

SEARCH 

TASK <task name>; Associates name with task segment 
DUMMY Dummy task segment 

INCLUDE (<main program>) "MAIN" 

ALLOCATE 

END 


The file must contain an INCLUDE command for each shared module in the procedure segment. 
This linking operation results in some unresolved references from module P$MAIN because 

the task segment is a dummy segment; there should be no unresolved references from the 
procedure segment . The linked object module produced by this operation is the linked object 
for the shared procedure segment, 


The library contains a partial link of most of the routines that are shared by most applications. 
The linked object of this partial link is selected by the following command: 


INCLUDE (SHRPROC) 


This command replaces the INCLUDE commands for the modules included in the partial link. 
The shared procedure may be linked with the INCLUDE (SHRPROC) command; any unresolved 
references in the procedure segment indicate that INCLUDE commands for the modules that 
define those references must be added to the link control file. 
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The last step is to link the tasks. The LIBRARY commands and INCLUDE commands used 

to link the procedure must also be used to link the tasks, even though the procedure segment 
is a dummy segment. These commands result in the correct linking within the task segments. 
The link edit control file for the task contains the following commands: 


[ FORMAT COMPRESSED;] Optional format of linked object code 

[ LIBRARY <user library>;] Optional user library 

[ LIBRARY .TIP.MINOBJ;] Optional runtime library 

[ LIBRARY .TIP.LUNOBJs] Optional runtime library 

LIBRARY .TIP.OBU; Runtime library 

PROCEDURE <procedure name>; Associates name with procedure segment 
DUMMY Dummy procedure segment 

INCLUDE <module name>; Shared module 

SEARCH 

TASK <task name>; Associates name with task segment 
INCLUDE (<main program>) "MAIN" 

ALLOCATE 

INCLUDE <user object>; Pascal compiler output for main program 
INCLUDE <user object>; Nonshared module 

END 


INCLUDE (<main program>) 


The file must contain an INCLUDE command for each shared module in the procedure segment. 
The resulting linked object module is the linked object module for the task. 


Install the procedure with the appropriate install procedure command, and install the task Ww 
with the appropriate install task command, specifying the procedure as the attached procedure 
for the task. Alternatively, the FORMAT commands shown may be replaced with FORMAT 
IMAGE commands, which cause the link editor to install the task and procedure after linking. 
When this is done, the procedure segment must not reference anything in any module specified 
in an INCLUDE command that follows the ALLOCATE command. 


A Pascal task that executes under TAXO and uses LUNOs for I/O access may have two 
attached procedure segments that contain shared modules. When a task having two attached 
procedure segments includes FORTRAN routines, the FORTRAN routines must be in either 
the second procedure segment or in the task segment. A task that executes under TAXO, 
accessing I/O devices and files with SCI synonyms, is limited to one attached procedure seg- 
ment. 


COMMON biocks shared by several tasks may be placed in a procedure segment attached 

to the tasks. The resulting procedure is no longer reentrant; i.e., the data in the block may 
change. The procedure may be referred to as a dirty procedure because it is no longer pure 
code. The technique for doing this requires a special $BLOCK module in the linking operation. 
The special module is provided to support the BLOCK DATA statement of FORTRAN. To place 


one or more COMMON blocks in 2 procedure segment, write a Pascal procedure named $BLOCK 


that contains an ACCESS declaration of variables in the shared COMMON biock(s). Then, 
include this nodule in the procedure segment. 


en 
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There is an exception to the general rule that the LIBRARY commands used for linking tasks 
that share a procedure segment must be identical. When it is desired to share a procedure 
segment with tasks that execute under TAXO and not all of the tasks access I/O in the same 
way (some use LUNOs, others SCI synonyms), the procedure may be successfully shared 

if the following holds true: the shared library routines are not fundamentally different in the 
two libraries, .TIP,.L.UNOBJ and .TIP.OBUJ, and the .TIP,.LUNOBV version is used. When the 
partial link SHRPROC is used, these requirements are met; i.e., the modules linked in this 
partial link are essentially the same in both libraries. The routines that cannot be included 

in the shared procedure segment are listed in table 14-2. Since an open file operation calls 
some of these routines, the procedure segment cannot contain a user routine that opens 

a file. Another requirement is that modules ENT$ and ENT$3 through ENT$ 16 be those in li- 
brary .TIP,LUNOBJ. This can be done by using explicit INCLUDE commands for these modules 
in the link edit control file for linking the procedure segment. This is required even though 
the routines in these modules may be used only by routines in the task segment. 


Table 14-2. Nonsharable Runtime Library Routines 


EXTMSG EXTNDS$ 
FIND$S EXTOUT 
INIT$ GO$ 
MESAGS$ INIT$ 1 
P$TERM OPENS 
P$UC RESTSR 
SETSNA REST$S 
TIP$TC RESTST 

REWRTS$ 
NOTE: 


The modules in the left column are not sharable because they are significantly different 
in libraries .TIP.OBJ and .TIP,.LUNOBJ. The modules in the right column are not sharable 
because they use routines in the left column. 


The proper way to link the segments for a procedure attached to tasks using both types of 

1/0 access is to link the procedure segment using a PARTIAL command and libraries .TIP,LUNOBJ 
and .TIP.OBJ. There should be no unresolved references except references to labels defined 

in module P$MAIN. If the procedure segment is to be the first of two attached procedures, 

there should be no unresolved references. 


The link edit control files for linking the tasks should contain procedure segments that consist 

of only an INCLUDE command that specifies the module containing the partially linked object 
code for the procedure segment. Each task should be linked with or without library .TIP,LUNOBJ, 
as required. 


14.4 Pascal Task Execution Considerations 


There are two considerations that apply to execution of any Pascal task: failures caused 
by synonym table overflow, and the user condition code. 
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14.4.1 Synonym Table Overflow 


The Pascal SCI command procedures use many synonyms, including those that begin with 

a dollar sign ($) and are transparent to the user. Because of the heavy use of synonyms, 

the synonym table may overflow. The problems caused by synonym table overflow are not 
always obvious or straightforward. When entry of a Pascal SCI procedure produces unantici- 
pated results, the user should reduce the number of synonyms and try again. Besides deleting 
any unused synonyms assigned by the user, the user should execute procedure Q$SYN to 
delete any nonessential synonyms assigned by the operating system and procedure P$SYN 

to delete any nonessential synonyms assigned by the Pascal SCI procedures. 


14.4.2 Condition Code 


Synonym $$CC is used to store system and user condition codes. Procedure P$UC may be 
called by a user task to set $$CC to one of the following values: 


0000 - Procedure called with a parameter of 0 or not called, and task terminated 
normally w 


40004¢- Procedure called with a parameter of 1, and task terminated normally 
60004¢- Procedure called with a parameter of 2, and task terminated normally 
80004¢- Procedure called with a parameter of 3, and task terminated normally 
A0004¢- Procedure called with a parameter of 4, and task terminated normally 
C0004¢- Task terminated abnormally or procedure HALT called 


Synonym $$CC may be tested to detect whether the task terminated normally or whether 
procedure P$UC was called by something other than a parameter of zero during execution 

of the task. The synonym must be tested or stored prior to execution of any of the TAXO 
utilities that set the synonym. Another synonym may be set to the value of $$CC with an 
«SYN SCI primitive and a value of @§$CC to store the value. Specifically, the LS SCI command 
always lists the value of $$CC as zero because the command utility sets $$CC to zero. 


A task that calls PSUC must declare the procedure externally, as follows: i) 
PROCEDURE P$UC (CODE: INTEGER); EXTERNAL; 


The parameter is a value in the range of 0 through 4. The parameter value determines the 
value to which $$CC is set, as previously described. 


14.5 Compiling, Linking, and Executing with a Batch Stream 


The compiler, link editor, and resulting Pascal program may be executed using a batch stream. 
Figure 14-1 shows the SCi commands for a batch stream to compile, link, and execute a 
program. The example assumes the existence of directory USER, which contains the source 
code in a member .USER.SOURCE. The procedure creates files .LUSER,OBJECT, -USER.LISTING, 
-USER.MESSAGE, .USER.LINK, .USER.PROGRAM, .USER.LINKLIST, and .USER.OUTPUT. The 
input data for the program must be on file USER.INPUT. 
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14.6 Debug Mode 


The debug mode allows debugging with the SCI debug commands (described in TA 1600 
TAXO Debugging Support) and with Pascal debug commands (described in the following para- 
graphs). The following limitations apply to a task that is to be debugged using the Pascal 
debug commands: 


e The stack display commands SPS and LPS cannot be used while the task is executing 
in a FORTRAN routine or in any routine with nonstandard linkage. (Appendix F des- 
cribes the standard interface for assembly language routines.) 

To reference a Pascal routine by name or to have the name displayed, the routine 
must have been compiled with the TRACEBACK option (a default option) in effect. 

BATCH ! Compile, Link, and Execute a TIP Program 


* Execute the TI Pascal Compiler 
x 


XTIP SOURCE = .USER.SOURCE, OBJECT = -USER.OBJECT, 
LISTING = .USER.LISTING, MESSAGES = .USER.MESSAGE 
* 
-IF @$$CC, GT, 94000 ! If there were compile errors, 
EBATCH ! then stop. 
. ENDIF 


* 
* Generate a link control file as input to the Link Editor 
* 


-DATA .USER.LINK 
FORMAT IMAGE, REPLACE 
LIBRARY .TIP.OBJ 

PHASE 0,SAMPLE 

INCLUDE (MAIN) 

INCLUDE .USER.OBJECT 
END 

. EOD 
* 


* Execute the 990 Linkage Editor 
* 


Install directly into user program file, 
replacing existing task by same name-- 
or at first available location if task 
does not already exist. 


~e Ne te oe 


XLE CONTROL ACNM =~ .USER.LINK, 
LINKED OUTPUT = .USER.PROGRAM, 
LISTING ACNM = .USER.LINKLIST 

* 

-IF @SSCC, GT, 04000 ! If errors in link, 
EBATCH ! then stop. 

- ENDIF 


* 
* Execute the TIP program just installed 
* 


APT PGM FILE = .USER.PROGRAM, TASK NAME = SAMPLE, 


INPUT = .-USER.INPUT, OUTPUT = .USER.OUTPUT, 
MESSAGE = » USER.MESSAGE 

* 

EBATCH ! End of batch stream. 


Figure 14-1. Batch Stream for Compiling, Linking, and Executing a Pascal Program 


14/16 


The Pascal debug commands may be used to debug tasks linked in any of the ways described 
in paragraph 14.3. 


The Pascal debug commands provide breakpoint capability and the capability of displaying 
the Pascal stack. Symbolic debugging is not supported in Pascal tasks. 


Both the SCI and Pascal debug commands require that the task be unconditionally suspended 
either before or during the execution of the command. The unconditionally suspended state 
(task state 6) is the state in which the task is suspended until activated by a command, There 
are several ways in which a task may be unconditionally suspended: 


2 The Pascal task is executed with the debug mode selected, which causes the task 
to be loaded for execution but suspended before execution actually begins. 


e The task suspends itself. 
a The task executes a breakpoint (XOP 15, 15). 
2 The task is suspended by the SCI debug commands. 


- 


Once the task is in a suspended state, debug commands may be used to assign breakpoints, 
simulate execution, display memory, and perform other debug functions. When the debugging 
has been completed, the task may be terminated by entering a Kill Background Task (KBT) 
command. 


The task may be placed in the controlled mode by executing the Debug command (XD) as 
for any task being debugged under TAXO. Placing a Pascal task in the controlled mode en- 
ables displays associated with breakpoints and allows the user to enter the controlled mode 
debug commands. Otherwise, the user must monitor the status of the task using the Show 
Pascal Stack (SPS) command or the Show Internal Register (SIR) command. 


When executing the Pascal task, a breakpoint causes a display of data. 


14.6.1 Pascal Debug Commands 


Seven commands are provided with the SCI to support the debugging of Pascal tasks, These 


commands provide a means of examining the stack area of a Pascal task and of setting . 


points in a manner that is independent of the code generated by the Pascal compiler. The 
commands are: 


° Assign Breakpoint - Pascal (ABP) 

. Delete Breakpoint - Pascal (DBP) 

2 Delete and Proceed from Breakpoint - Pascal (DPBP) 
9 Proceed from Breakpoint - Pascal (PBP) 

. List Breakpoints - Pascal (LBP) 

° Show Pascal Stack (SPS) 


o List Pascal Stack (LPS) 
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The commands are entered when the SCI command prompt ([ ]) is displayed. The syntax 
shown in the descriptions of the commands represents the actual display. The following con- 


ventions are used: 
previous - Indicates the last value entered for the prompt. 
acnm - Indicates an access name (either a device name, or a file pathname). 
string - Indicates a character string. 


constant exp - Indicates a decimal or hexadecimal integer or an expression composed 
of decimal or hexadecimal integers and the operators +, -, *, and /. 


Underscore (_) - Indicates the default value. 

Braces ( ) - Enclose alternative entries, one of which must be entered. 
Angle brackets (<>) - Enclose a user entry. 

Brackets ([ ]) - Enclose an optional entry. 

Uppercase - Indicates system displayed data. 


SCI writes error messages when it detects errors in the Pascal debug commands, These mes- 
sages are listed in Appendix E. 


14.6.1.1 Assign Breakpoint - Pascal (ABP) 


The Assign Breakpoint - Pascal (ABP) command assigns a breakpoint at entry to, return from, 
or both entry to and return from a Pascal routine. The syntax of the ABP command is: 


ASSIGN BREAKPOINT - PASCAL 


RUN ID: <constant exp> 
previous 
NAME OF ROUTINE: <string> 
WHERE(ENTRY/RETURN/BOTH): <string> 


The RUN ID is the TAXO assigned runtime ID of the Pascal task to be debugged. The NAME 
OF ROUTINE is the procedure or function identifier of any Pascal or assembly language routine 
called by the Pascal task. Pascal routines must be compiled with the Traceback option. As- 
sembly language routines must have the standard interface described in Appendix F. Valid 
responses to the WHERE prompt are ENTRY, RETURN, BOTH, or single-character abbrevi- 
ations of any of these. ENTRY (or E) specifies a breakpoint at entry to the named routine; 
RETURN (or R) specifies a breakpoint at return from the routine; and BOTH (or B) specifies 
breakpoints at entry and return. 


/ —_—a + Pascai/0982/e 


14/18 


The first instruction in a routine compiled by the Pascal compiler is a BL instruction to a runtime 
routine for entry handling. When an ABP command that specifies either ENTRY or BOTH is 
executed, the command replaces the instruction following the BL instruction with a breakpoint 
(XOP 15,15). The last instruction in the routine is a B instruction to a runtime return handler. 
When an ABP command that specifies either RETURN or BOTH is executed, the command 
replaces the B instruction with a breakpoint (XOP 15,15). This is the implementation of a 
breakpoint in a Pascal task, and these are the only points at which a breakpoint may be 
placed. 


Execution of a breakpoint suspends the task, placing it in state 6. Wnen execution has been 
initiated by a Delete and Proceed from Breakpoint - Pascal command or a Proceed from 
Breakpoint - Pascal command, and debugging is in the controlled mode, a display appears 
on the VDT screen when the breakpoint is executed. 


Execution can be continued following a breakpoint by entering one of the following: 


ze A Proceed from Breakpoint - Pascal command 
2 A Delete and Proceed from Breakpoint - Pascal command 
° A Delete Breakpoint - Pascal command followed by a Resume Task command 


A task need not be in memory when an ABP command sets a breakpoint in the task. When 
the task is not suspended, an ABP command suspends the task while it sets the breakpoint 
and then restores the original state of the command. 

Example: 


ASSIGN BREAKPOINT - PASCAL 


RUN ID: >04 
NAME OF ROUTINE: CCHAR 
WHERE(ENTRY/RETURN/BOTH): RETURN 


The example command sets a breakpoint at the return from routine CCHAR of a task with 
the runtime ID of 044¢. 


14.6.1.2 Delete Breakpoint - Pascal (DBP) 


The Delete Breakpoint - Pascal (DBP) command deletes a breakpoint at entry to, return from, 
or both entry to and return from a Pascal routine. The syntax of the DBP command is: 


DELETE BREAKPOINT - PASCAL 


RUN ID: <constant exp> 
previous 
NAME OF ROUTINE: { <string> \ 
ALL 


WHERE(ENTRY/RETURN/BOTH): <string> 
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The RUN ID is the TAXO assigned runtime ID of the Pascal task to be debugged, The NAME 
OF ROUTINE is either the procedure or function identifier of a routine or keyword ALL. When 
keyword ALL is entered, all breakpoints in the task are deleted. Valid responses to the WHERE 
prompt are ENTRY, RETURN, BOTH, or single-character abbreviations of any of these. The 
response specifies deleting a breakpoint at entry or return from the routine, or breakpoints 

at both entry and return from the routine. 


When a breakpoint has been set at the specified location, the DBP command replaces the 
breakpoint (XOP 15,15) with the original contents of the location. When the location does 
not contain a breakpoint, the command writes a warning message. If the task is suspended 
when the command is entered, the command does not cause the task to resume execution. 
A Resume Task command should be entered to resume execution. 


Example: 


DELETE BREAKPOINT - PASCAL 


RUN ID: >04 
NAME OF ROUTINE: CCHAR 
WHERE(ENTRY/RETURN/BOTH): E 


The example command deletes a breakpoint at entry to routine CCHAR of a task with the 
runtime ID of 044¢. 


14.6.1.3 Delete and Proceed from Breakpoint - Pascal (DPBP) 


The Delete and Proceed from Breakpoint - Pascal (DPBP) command deletes the breakpoint 
that suspended the task, optionally assigns another breakpoint, and resumes execution of 
the task. The syntax of the DPBP command is: 


DELETE AND PROCEED FROM BREAKPOINT - PASCAL 


RUN ID: <constant exp> ( 
previous 
DESTINATION ROUTINE: ‘[ <string>] 
WHERE(ENTRY/RETURN/BOTH): [ <string>] 


The RUN ID is the TAXO assigned runtime ID of the Pascal task being debugged. The other 
two parameters may be omitted; when omitted, no breakpoint is assigned. The DESTINATION 
ROUTINE is the procedure or function identifier of a routine. Valid responses to the WHERE 
prompt are ENTRY, RETURN, BOTH, or single-character abbreviations of any of these. The 
response specifies assigning a breakpoint at the entry or return of the specified routine, or 
breakpoints at the entry and return of the routine. 


When the task has not been suspended by a breakpoint, the command assigns the specified 
breakpoint, if any, and writes a warning message. When the task is in the controlled mode, 

all activity at the terminal is suspended until the task executes a breakpoint. Data similar 

to the display of an SPS command (paragraph 14.6.1.6) is displayed at a breakpoint. When 

the task is not in the controlled mode, the user must monitor task status with an SP or SIR 
command (described in the Operator's Manual Il) to determine that a breakpoint has executed. 
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Examples: 


DELETE AND PROCEED FROM BREAKPOINT - PASCAL 
RUN ID: >04 
DESTINATION ROUTINE: 
WHERE(ENTRY/RETURN/BOTH): 


The example command deletes the breakpoint that suspended task 044¢ and resumes execution | 


of the task (if task 044¢ was suspended by a breakpoint). If the task was not suspended 
by a breakpoint, the command displays a warning message. 


DELETE AND PROCEED FROM BREAKPOINT - PASCAL 


RUN ID: >04 
DESTINATION ROUTINE: CINT 
WHERE(ENTRY/RETURN/BOTH): BOTH 


The example command deletes the breakpoint, assigns breakpoints at the entry and return 
of routine CINT of task 044¢, and resumes execution of the task. If task 044¢ had not been 
suspended by a breakpoint, the command would have assigned the breakpoint and then dis- 
played a warning message. 


14.6.1.4 Proceed from Breakpoint - Pascal (PBP) 


The Proceed from Breakpoint - Pascal (PBP) command optionally assigns a breakpoint and 
resumes execution of the task. The syntax of the PBP command is: 


PROCEED FROM BREAKPOINT - PASCAL 


RUN ID: <constant exp> 

previous \ 

DESTINATION ROUTINE: [ <string>] 
WHERE(ENTRY/RETURN/BOTH): [ <string>] 


The RUN ID is the TAXO assigned runtime ID of the Pascal task being debugged. The othe 
two parameters may be omitted; when omitted, no breakpoint is assigned. The DESTINATION 
ROUTINE is the procedure or function identifier of a routine. Valid responses to the WHERE 
prompt are ENTRY, RETURN, BOTH, or single-character abbreviations of any of these. The 
response specifies assigning a breakpoint at the entry or return of the specified routine, or 
breakpoints at the entry and return of the routine. 


When the task is in the controlled mode, all activity at the terminal is suspended until the 


task executes a breakpoint. Data similar to the display of an SPS command (paragraph 14.6. 1.6) 
is displayed at a breakpoint. When the task is not in the controlled mode, the user must monitor 


task status with an SP or SIR command to determine that a breakpoint has executed. 
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Examples: 
PROCEED FROM BREAKPOINT - PASCAL 
RUN ID: >04 
DESTINATION ROUTINE: 
WHERE(ENTRY/RETURN/BOTH): 


The example command resumes execution of task 04 ¢ without altering the number of active 
breakpoints. 


PROCEED FROM BREAKPOINT - PASCAL 


RUN ID: >04 
DESTINATION ROUTINE: CINT 
WHERE(ENTRY/RETURN/BOTH): 3 


The example command assigns a breakpoint at the entry to routine CINT of task 044¢ and 
resumes execution of the task. 


14.6.1.5 List Breakpoints - Pascal (LBP) 


The List Breakpoints - Pascal (LBP) command writes a list of the breakpoints assigned for 
a task. The syntax of the LBP command is: 

LIST BREAKPOINTS - PASCAL 

RUN ID: 

previous 


The RUN ID is the TAXO assigned runtime ID of the Pascal task for which breakpoints are 
to be listed. 


<constant exp> | 


Each entry of the listing describes the breakpoint or breakpoints for a routine of the task. 
The format of each entry of the listing is as follows: 


NNNNNNNN L EEEE RRRR 


The routine name is represented by NNNNNNNN. The letter represented by L is E, R, or B, 


for entry breakpoint, return breakpoint, or both entry and return breakpoints. Field EEEE con- 


tains the hexadecimal address within the task of the entry breakpoint when L is either E or 
B. Field RRRR contains the hexadecimal address within the task of the return breakpoint 
when L is either R or B. Up to three entries may be displayed on a line of the listing. 
Example: 


LIST BREAKPOINTS - PASCAL 
RUN ID: >04 


The example command specifies listing all breakpoints assigned for task 0446. 
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14.6.1.6 Show Pascal Stack (SPS) 


The Show Pascal Stack (SPS) command displays data from the stack structure of the currently 


executing process and other data pertaining to the specified task. The syntax of the SPS 
command is: 


SHOW PASCAL STACK 


RUN ID: <constant ea 
previous 


The RUN ID is the TAXO assigned runtime ID of the Pascal task for which the stack is to be 
displayed. 


The displayed data includes the contents of the internal registers, the breakpoints, and the 


stack structure of all processes beginning with the current process, An example of the display 
is as follows: 


RUNTIME TASK WORKSPACE PROGRAM CONTENTS OF STATUS INTERPRE TATI, 
ID NUMBER STATE POINTER COUNTER ADDRESS IN REGISTER OF STATUS 


RUN ID=2B STATE=06 (BP) WP=419A PC=3868 <PC>=2FCF ST=058F 
BREAKPOINTS 


RECUR B_ 38F4 395 E3868) 


NAME WP PC 2 wanna nnn n= -===PARAMETERS--------------= 


C 419A 3868 0000 410C 0005 
C 416C 3892 0000 410C 0005 
C 413E 3892 0000 410C 0005 
B 4110 38CA 0000 410C 0005 
RECUR 408A 3944 0000 0000 0000 0000 0000 0000 0000 0000 


GO$ 3C3E 1562 B10E 0000 
STACK STRUCTURE OF PROCESS STACK STRUCTURE OF BREAKPOINT LIST IN FOR- 
NOT CURRENTLY EXECGUTING, CURRENT PROCESS. MAT OF LBP COMMAND, 


The first line of the display shows the runtime ID, the task state, the contents of the Workspace 
Pointer (WP) and the Program Counter (PC), the contents of the address in the PC, the con- 
tents of the Status Register, and the interpretation of the Status Register contents. In the 
example, (BP) follows the task state to indicate that the task is in unconditional suspension 
due to execution of a breakpoint. The address in the PC is the address of the instruction 

that is to be executed next when execution resumes. The contents of the address is the ma- 
chine instruction that is to be executed next. The letters P and M indicate that the Parity 

and Map file bits of the Status Register have been set to one. The letters that may be displayed 
in this field are listed in the description of the SIR command in the Operator's Manual Il. 


The next portion of the display lists the assigned breakpoints (in the format defined for the 
LBP command). Three breakpoints are listed in the example: two in program module RECUR 
and one in routine C. The contents of the PC and the address of the breakpoint at the entry 
to routine C are the same; the breakpoint in routine C is the breakpoint that resulted in this 
display. 
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The remainder of the display consists of the stack structures of the processes involved in 
executing the task. For more information on processes, refer to the description of the abnor- 
mal termination dump (paragraph 14.7.4, 14.7.5, and 14.7.6). The stack structure of the cur- 
rently executing process is displayed first. Each line of the stack structure portion of the dis- 
play corresponds to the stack frame of an active routine, listed in the reverse of the order 

in which they were activated. In the example above, program module RECUR called routine B, 
which called recursive routine C. The display shows the stack structure at entry of the second 
time routine C called itself. The first line corresponds to the second recursive call of routine 

C; the second line to the first recursive call; the third line to the call of routine C by routine B; 
the fourth line to the call of routine B; and the last line to the program module RECUR. 


Each line of the stack structure lists the contents of the WP and PC and parameters for the 
routine. The address in the WP is also address of the bottom (lowest address) of the stack 
frame for the routine. The address in the PC is the address at which execution of the routine 
resumes when control returns to the routine. The parameters listing shows the contents of 

up to eight words of the stack frame, beginning at address 28 4¢ relative to the bottom of 

the stack frame. When the stack frame contains fewer than 304¢ words, only the words from 
relative address 284¢ to the top of the frame are displayed. When a routine has eight or more 
parameters, eight (or the first eight) words of the parameters are displayed. When the routine 
has fewer than eight parameters, all of the parameters are displayed, followed by local data 
if the routine has any local data. The word that corresponds to a value parameter contains 
the value of the parameter; the word that corresponds to a reference parameter contains 

the address of the parameter. In the example, routine C has three parameters and no local 
data. Parameter 1 is a value parameter with a value of zero; parameter 2 is a reference para- 
meter at location 410C4¢; and parameter 3 is a value parameter with a value of 5. 


A blank line separates the stack structure for the currently executing process from that of 

the first process that is not currently executing. The format of the display of a process that 

is not currently executing is the same as the display format described previously. The informa- 
tion is not as useful for debugging purposes because the user is not concerned with debugging 
the routines in these processes, In the example, the stack structure of the non-executing 
process contains a single stack frame. When there is more than one non-executing process, 
more than one additional stack structure is displayed; a blank line separates each stack struc- 
ture display from that of the next stack structure. 


Example: 


SHOW PASCAL STACK 
RUN ID: >2B 


The example command specifies displaying the stack structure for task 2B4¢. 


14.6.1.7 List Pascal Stack (LPS) 


The List Pascal Stack (LPS) command lists a specified portion of the stack frame for a specified 
routine. The listing is written to a specified device. The syntax of the LPS command is: 


LIST PASCAL STACK 
RUN ID: | <constant ort 


previous 
NAME OF ROUTINE: [ <string>] 
STARTING OFFSET: goat sil 
¢) 
NUMBER OF BYTES: [ <constant exp>] 
LISTING ACCESS NAME: [ <acnm>] 
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The RUN ID is the TAXO assigned runtime ID of the Pascal task for which the stack is to be 
listed. The NAME OF ROUTINE is optional. When a routine name is entered, stack frames 
for the named routine in all processes are listed. When the name is omitted, all stack frames 
of all processes are listed. The STARTING OFFSET is the relative address within each stack 
frame of the first word to be listed. The NUMBER OF BYTES is optional, When a number of 
bytes is entered, the specified number of bytes of each stack frame are listed. When the 
number is omitted or when the number entered is greater than the number the stack frame 
contains, the command lists the contents from the starting offset to the top of the frame. 
The LISTING ACCESS NAME is a TAXO pathname of a file or device to which the listing is 
to be written. The parameter is optional; when it is omitted, the list is written to the Terminal 
Local File of the terminal and is then displayed. 


If the task specified in the command is not unconditionally suspended, the task is suspended 
while the listing is written. The listing consists of a heading and a variable number of lines 
for each stack frame. The format of the heading is as follows: 


LIST STACK FRAME OF NNNNNNNN., FRAME BEGINS AT AAAA, 


NNNNNNNN represents the name of the routine. AAAA represents the address of the eee. 


of the stack frame. 
The format of the lines that follow the heading is: 
RRRR DDDD DDDD DDDD DDDD DDDD DDDD DDDD DDDD cccccccccccccccc 


RRRR represents the relative address within the stack frame of the first word listed. Each 
DDDD represents the contents of a word of the stack frame listed as four hexadecimal digits. 
Each C represents the contents of a byte represented as an ASCII character, or as a period 
(.) If the ASCII character is unprintable. 


The number of lines listed for each stack frame depends upon the number of bytes to be 
listed. One line is listed when 16 or fewer bytes are to be listed. Wnen more than 16 bytes 
are to be listed, they are listed 16 bytes per line with any remaining bytes on an additional 
line. 


The stack frames for the currently executing process are listed first, followed by those for 
processes that are not executing. When the specified routine is executing or suspended or 
when all routines are being listed, the first stack frame listed is that of the current routine. 
Otherwise, the stack frame that corresponds to the most recent call of the routine is listed 
first. Additional stack frames are listed in the reverse of the order in which they were called. 
A blank line separates the listings of stack frames; two blank lines separate the listings of 
stack frames of a process from those of another process. 


When listing of stack frames for a task or routine that is not active is requested, the command 
writes an error message. 


Pascat/0982/e 
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Examples: 


LIST PASCAL STACK 


RUN ID: >2B 
NAME OF ROUTINE: 
STARTING OFFSET: >28 
NUMBER OF BYTES: 
LISTING ACCESS NAME: MYVOL.PASCAL.STACKS. TASK 1 


The example command lists the stack frames of all routines of task 2By¢ on a file. The entire 
contents of the stack frames starting with byte 284¢ relative to the bottom of the stack are 
listed. The access name of the file is MYVOL.PASCAL.STACKS.TASK 1. 


LIST PASCAL STACK 


RUN ID: >2B 
NAME OF ROUTINE: =) 
STARTING OFFSET: >28 
NUMBER OF BYTES: 10 


LISTING ACCESS NAME: 


The example command lists the stack frames for routine B of task 2By¢ on the terminal. Ten 
bytes starting at byte 284¢ of each stack frame are requested. As many as 16 bytes may 
be listed per stack frame; the requested number of bytes requires one line. If there are 16 
or more bytes from the starting byte to the top of the stack, 16 bytes are listed, filling the 
line. Otherwise, the bytes from the starting byte to the top of the stack are listed. 


14.7. Runtime Errors 


There are several categories of errors that are detected at runtime and cause abnormal termi- 
nation of a Pascal program. The error categories are: 


e Failures of runtime checks specified as compiler options 


1/O errors 
Depletion of available memory space 
Task errors 


Mathematics package errors 


In each case, an error message is displayed and an abnormal termination occurs. An abnormal 
termination dump is displayed along with the error message. The following paragraphs des- 


cribe the error categories and the abnormal termination dump. Runtime error messages are 
listed in Appendix E. 
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14.7.1. Runtime Checks 


Seven compiler options provide runtime checks by including additional code in the object 
module to perform the checks and issue the error messages. The options and the values 
checked are: 


CKINDEX Array indexes within range. 
CKOVER Arithmetic overflow. 

CKPREC Loss of precision. 

CKPTR NIL pointer values. 

CKSET Set elements within range. 

CKSUB Subrange assignments, 

CKTAG identifiers consistent with tag fields. 


When any of these options has been specified for compilation of a program and the check 
fails at runtime, abnormal termination occurs and the error message and abnormal termination 
dump are displayed. 


14.7.2 Memory Space Errors 


The variables for a Pascal program are organized in a stack (last in, first out). The variables 
for the main program are organized in a stack frame, and those of each routine are similarly 
organized in a stack frame. When executing a program, the user specifies an amount of me- 
mory space for the stack. When execution begins, the stack frame of the main program is 
placed in the stack. When a routine is called, its stack frame is added to the stack. If the 
routine calls a nested routine, the stack frame of that routine is also added, so that at any 
time the stack contains the stack frame of the currently executing routine and those of all 
its ancestors, including the main program. Should a call for a routine occur when the stack 
does not contain space for the stack frame of the routine, an error termination occurs, dis— 
playing the message: 


STACK OVERFLOW 


Memory space for dynamic variables is assigned in an area of memory called the heap when 
procedure NEW is called in a Pascal program. The user specifies an amount of memory space 


for the heap when executing a program. If procedure NEW requests more memory for a variable 


(or record of variables) than remains in the heap and the runtime system is unable to obtain 
more memory space for the heap, an error termination occurs, displaying the following mes- 
sage: 


HEAP FULL 


— = a _ —~t— ee ee Neen OOO 


TAA anon Pascal/0982/e 
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14.7.3 Error Termination 


Figure 14-2 shows the error message written on the system message file and the abnormal 
termination dump written on file OUTPUT for an I/O error. The error message indicates that 
the error occurred when an attempt was made to open file INPUT, access name .INPUTO4. 
The status shown, 27, is the completion code returned by TAXO, which means NO FILE DE- 
FINED BY NAME SPECIFIED. No further analysis of this error is necessary; the user assigns 
the access name of an existing file when executing the program. 


The abnormal termination dump includes a dump of each process involved in the run and 

a dump of the heap. The Pascal runtime support system has been designed to permit mul- 
tiple sites of execution within the executable object code for a program. Each such site is 
called a process and has its own stack region within which its local variables are allocated. 
Each Pascal program that executes under TAXO has at least two processes. The example 
program has two: DIGIO (the user program) and system process GO$. GO$ is an initialization/ 
termination process that is given control when a Pascal load module is placed in execution. 
GO$ determines the user's stack and heap parameters, allocates and initializes both the stack 
region for the user program and the heap, opens the file OUTPUT, and transfers control to 


the user program. Upon termination, GO$ again receives control and performs a controlled 
termination, either normal or abnormal. 


The process dump consists of a dump of the process record and of the stack. The process 
record is the structure that describes the resources associated with each process. The fields 
of the process record and the hexadecimal relative byte numbers of the fields are: 


° 


PROCESSLIST, bytes 0 and 1, Link to next process. Processes form a circular linked 
list. 


DISPLAY, 16 element array, bytes 2 through 21. Each element is a pointer to the stack 
frame of the most recently called routine at a static nesting level, 1 through 16. Only 
updated by routines that contain nested routines. 


WP, bytes 22 and 23. Contents of WP, saved when process is not executing. Address 
of workspace applicable to error. 


PC, bytes 24 and 25. Contents of program counter, saved when process is not exe- 
cuting. Address of instruction applicable to error. 


ST, bytes 26 and 27. Contents of status register, saved when process is not executing. 


RS, bytes 28 and 29. Pointer to the process that caused execution of this process 
to be resumed. 


FLAGS, bytes 2A and 2B. When bit 0 is set to one and the heap space has been filled, 
the task terminates abnormally. When bit 0 is set to zero, the task continues to exe- 
cute when the heap space Is full. Bits 1 through 15 are not currently used. 


nIGIa 
FILE 
GPEN 


EXECUTION BEGINS 


INPUT 
ERROR - STATUS = 


HALT CALLED 


STACK 


USET = 


ACCESS NAME 


ZF 


660 HEAP USEN = 
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- INPUTO4 


+e TUMP OF PROCESS x#* 


PROCESS RECORD FOR DIGIO 


SEAC 
SSBC 
secc: 
sence 


(0000) 
(0010) 
(0020) 
(0030) 


470E 
FFOO 
FFOO 
56RC 


542A 
FFOO 
Sag92 
SSAA 


TOP QF STACK 


SSBA 
S5CA 
SSDA 


(0000) Q200 0019 
(9010) 4FBC SSRA 
(0020) 0000 0000 


S592 
FFOO 
1592 


0000 


0000 
S5E4 
0000 


FFOO 
FFOO 
C1iSF 
0000 


FFOO 
FFOO 
470E 
4Fn4 


0000 
OOB2 
0000 


0000 
5S8AC 
0000 


SSEA-S609 SAME AS LAST LINE 


S608 
561A 
Sé2A 


DATA 
SI92 
SSA2 
ASR2 


DATA 
S516 
S524 
SSSé 
5544 
SSE, 
S566 
a7 é 
S586 


DATA 
54E4 
S4F4 
5504 
S514 


nATA 
S4BA 
S4ItA 
541A 


LATA 
S420 
543A 
544A 
545A 
5464 
547A 
S458 
542A 
54AA 


Figure 14-2. 


(0050) 0549 4E50 
(0060) 9000 0000 
(0070) 2SFE Seac 


AREA FOR HALTS 

(0000) 0008 0001 
(9010) OOO1L ASY2 
(0020) 477E S16 


AREA FOR ICQSERR 
(0000) 1LAZE OC0O0O 
(0010) 548A S516 
(0020) T1SBF 0000 
(0030) 4E20 4552 
(0040) 203N 2032 
(0050) 2A74 SSar 
(0040) 5420 S278 
(0070) 5374 S373 


ARFA FOR OPENS 

(9000) 0000 0001 
(0010) S546 S4E4 
(0020) S1aF SSac 
(00320) OOO 


AREA FOR RESTST 
(0000) 0013 OO0O4 
(0010) 54AQ0 S4BA 
£0020) C000 OO000 


AREA 
(0000) 
(0010) 
(0020) 
(0030) 
(0040) 
(0056) 
(O04) 
(0070) 
(O080) 


FAR DIGIO 

FaSZA 0000 
F4EA 542A 
0000 5412 
o000 OOOH 
546A O0O11 
4F55 5450 
548A 0000 
494— 5055 
0000 0000 


S554 
0000 
S592 


Sé5C 
SSBA 
1A44 


32030 
5592 
FFFF 
524F 
2745 
5514 
0000 
0000 


0000 
S516 
FFFF 


0000 
54E4 
FFFF 


0000 
545A 
Os3C& 
O000 
OO4F 
5554 
0006 
5420 
0000 


0000 
0000 
SBD4 


0000 
0000 
S18F 


LEVEL=2 
1BB4 0100 
oeocce SSAr 
0000 


LEVEL=2 

S732 0002 
1582 52378 
0000 54SA 
5220 2020 
2O2E 494E 
219E CSeEF 
0000 AZBéC 
0000 0000 


LEVEL=2 

54E4 0014 
1884 SSAc. 
FFFF 548A 


LEVEL=2 

0000 0000 
1F44 Ssac 
0000 548A 


LEVEL=1 

0000 OOO 
4424 ScAc 
0000 OOOO 
OOOO OOOO 
S2AO O141 
2020 0001 
a000 0041 
2020 0001 
0000 G006 


324 


FFOO 
FFOO 
£000 
4FBC: 


0000 
4B64 
0000 


0019 
0000 
0000 


S548 
S516 


5542 
54E4 
0000 
5354 
S055 
5375 
0000 
0000 


0014 
S4BA 
0000 


O00 
542A 


0000 
5412 
0000 
0000 
O00} 
O100 
0002 
9100 
0000 


FFOO 
FFOO 
0000 
0300 


0000 
275E 
0000 


0001 
5614 
0000 


284A 
1A44 


5542 
200C 
2O4F 
4154 
5430 
494F 
0007 


S4EA 
443E 
53A0 


0000 


BAGO § 


0000 
o3cs 
0000 
0000 
oo5o0 
0000 
0000 
0027 
0000 


FFOO 
FFOO 
5428 


4B64 
C1SF 
0000 


0000 
5640 
FFFF 


4FE4 
DISF 


S904 
O1SF 
O000 
0000 
5400 
0000 
S278 
ooo0o0 
0000 


(Go THU. con cccccee?) 


Covncccccccssccas) 


Co eer eeeGrecve tT () 
(V.X.-.4--0.0... ) 


Coccecec cevsscn aks ) 
CO.USU.. oXeK. 7%.) 


Ce ere cee w as Doce a) 


Co INPUT. connec cne?) 
CacecccseeceeV. VG) 
(ZeXoUeFalewenewe) 


(oeeeV\..- UH(UG. ) 
(~.U.U...X.U..D..) 
(G.U..D.. ) 


(.>,..0072.. UBLUES. ) 
(T.U.U...8.T. 


(oeccececlens 


cece) 
OFE ) 
(N ERROR - STATUS) 
( = 27E .INPUTOA. ) 
(#.X.U.!...$.IN..? 
CT SevvesSeeeee 4?) 
(S.S.ereeccce ) 


Casscice Poses lobe? 
(UFT.UL..X.T.N>T.) 
C1 Xe cane Ton eSee”?) 
(.F ) 


Caocccrscccaceeelte) 


CT. Va Tach. Tat. Ta} 
ininGeiawe Pe ) 


CX wees Tebow ao Pe 3 
(T.T#T.DSX.T...2-) 
Cae Tevccccnccevee) 


Cocecscvescecsese) 


(T..4.05..A...FT.?) 
(OUTPUT . 
(Ta cmeccecAvcee Se 
(INPUT p 


rer ee ere re 


ad 
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eee DUMP OF PROCESS e+ 


PROCESS RECORD FOR GOs 
(0000) SSAC 542A 
(0010) FFOO FFOO 


470E 
471E 
472E 
473F. 


DATA 
477E 
47SE 
479E 
47AE 
47BE 
47CE 


NATA 
4752 


4762 
4772 


4656 


Sano 
S3E0 


Figure 
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TAA veusmevsoer 


(0020) 


FFOO 


AT7TE 


(0030) 4A2E 4B5A 


AREA FOR TERMS 


(0000) 
(0010) 
(0020) 
(0030 ) 
(0040) 
(00580 ) 


39FS 
ZES6é 
FFOO 
4F20 
4245 
0001 


0001 
477E 
4752 
2020 
4749 
477A 


AREA FOR Gns 

(0000) 4ADA 0000 
(OO10) 0000 4752 
(0020) 0000 0000 
*##e* END GF PROCESS DLINF 


4814 
FFOO 
3004 
0000 


0000 
47DA 
ISSE 
2020 
4E53 
470E 


0000 
477E 
FFFF 


FFOO 
FFOO 
FFFF S&ac 
Q000 4Fhn4 


LEVEL=2 

477A 9000 
O62F 470E 
0000 SSAC 
4558 4542 
2EPR 0404 
000s OOOO 


LEVEL=2 

0000 0000 
2080 470F 
0000 SSac 


ee TMF CF HEAP sit 


(0000) 
(0010) 
(Q020) 
(00380) 
(0040) 


(Q000) 


(O000) 
(O010) 
(0020) 


(Q000) 


(0000) 
(OO10) 
(0020) 


(9000) 
(0010) 
(0020) 
(OO30) 
(0040) 


(0000) 
(Q000) 


(0010) 
(0020) 


14-2. 


AS4i 
4154 
5430 
0000 
0000 


OAZE Ac 


0000 
04680 
0000 


OS2E 


OO27 
0409 
0000 


0000 
OGSE 
o000 


ORO4 
0000 
O000 


494E 


7106 
0000 
0000 


FO41 


OBOS 
0000 
0000 


2043 
2030 
0000 
0000 
0000 


554c 
eleleh 
0000 
OFF 
5055 
4018 


Oooo 
0000 


3020 32: 


oo0o7 


0000 & 


OLFF 


4c45 
3720 
0000 
0000 
0000 


414¢C 
2032 
0000 
0000 
0000 
412F 4053 
4456 
46ne 


ooS0 
oo000 


5420 32420 


OOOO 
S340 


OOO 
OO00 


Oooo 


S445 


~ oo50 
> 0000 


FFOO 
FFOO 
&000 
4FEC 


0000 
SSAC. 
39C2 
S554 
0000 
S420 


0000 
4738 
SSAC 


4420 
202E 
0000 
0000 
0000 


4700 


ooo: 
oO000 


O000 
(elerele) 


2033 
BBBO 


0000 
4050 


oo02 
OOOO 
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FFOO 
FFOO 
0000 
FFFF 


FFOO 
FFOO 
4750 


0000 
542A 
4749 
4E20 
0000 


0000 
155E 
4449 
A94F 
0000 


470F 
OLSF 


0000 
0308 


2020 
494E 
0000 
9000 
0000 


SS54 
5055 
0000 
o000 
0000 


oO000 
0000 


0000 
0000 


OOOO 
0000 


O000 
Oooo 


2032 30 
2230 33 


2082 


A000 0000 


O00O0 
0000 


oOo000 
0000 
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(CX. THH. ccc ccccvee) 
Cove cvnccveccceee) 
(..G.0...X..22.GP) 
(J.KZ....-0.0... ) 


CPn nce cGees cscasas:) 
(.VG.G...G6.X..*T#) 
(..GR.*..X.9.DIGI) 
«a EXECUTION ) 
(BEGINS. .ccvcccee) 
(.06.G..00. T# ) 


Cube w ween cence eG. ) 
(..GRG.,.G.Gt....) 
CacwcenraXeXe ) 


(HALT CALLEN - ST) 
(ATIIS = 27 . INPU) 
CTO4 wocccecccvee?) 


(Cac vccceccnsccsve) 


Coc cnnvaccescnce 


(.. PAULA. MSG. ) 


CocverePeaPeccce 


cm eeP en ewewes 


eevee ) 


(.. INPUTO4 ) 


“.-@. 
Co. 


) 
ee eee 
) 


) 
203) 
209) s cwasmwarw > 


(..FALILA. TEMF ) 


CocccvcHe oPesccee?) 


CocseccSccccccace?) 


Concece ) 
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NONSTD, bytes 2C and 2D. Contains zero except when process is executing in a 
routine with neither Pascal nor FORTRAN linkage. Contains the most recent work- 
space pointer of a routine with Pascal or FORTRAN linkage when process is execu- 
ting in a routine with neither Pascal nor FORTRAN linkage. Dump of such a routine 
is not possible; dump begins with workspace pointed to by this address. 


. STKBLOCK, bytes 2E and 2F. Pointer to the stack region of the process. 
° SBNDRY, bytes 30 and 31. Stack boundary; largest value reached for top-of-stack. 
Used for stack overflow checks and stack usage calculations. 
8 STKMAX, bytes 32 and 33. First word beyond the stack region of the process. 
2 FTOP, bytes 34 and 35. Top-of-stack for FORTRAN; otherwise, zero. Used to imple- 
ment reentrant FORTRAN and to call Pascal procedures from FORTRAN. 
2 FILL, bytes 36 and 37. Not used. 
S PHEAP, bytes 38 and 39. Address of a data block used by the heap manager. 
: PTASK, bytes 3A and 3B. Address of a data block that contains task information. 
2 TERMCD, bytes 3C and 3D. Process termination code, as follows: 
FFFF 4¢ - Active process 
0000 ~ Normal termination 


Other values - Error codes as listed in paragraph E.3. 


The dump of the stack follows the dump of the process record and consists of a variable 
number of stack frames, each of varying length. The 128 bytes at the top of the stack (above 
the topmost stack frame) are displayed under the heading: 


TOP OF STACK 


This area may contain pertinent information when another stack frame was being built as 
the error occurred, or when the stack frame for a routine that completed remains in this area 
of memory. Each stack frame begins with a heading, as follows: 


DATA AREA FOR HALTS$ LEVEL=2 


A stack frame is referred to in the dump as a data area. HALT$ was executing when the 
dump was displayed. The level, 2, is the static nesting level. The stack frame contains five 
fixed fields. The fields of the stack frame and the hexadecimal relative byte numbers of the 
fields are: 


m REGS, bytes 0 through iF. The workspace (registers) used by the routine. 
SAVED, bytes 20 and 21. Saved display pointer. The routine being entered saves the 


old display pointer at its level in this field prior to storing its bottom-of-stack pointer 
in the display. Used only by routines that contain nested routines, 


Pascal/0982/e 


7A TRIUMPH-ADLER 
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CALLER, bytes 22 and 23. Workspace pointer of calling routine. Used only by rou- 
tines that contain nested routines. 


RETADDR, bytes 24 and 25. Address to which routine will return. Used only by rou- 
tines that contain nested routines. 


PRP, bytes 26 and 27. Process record pointer. Current process address (used with 
LUNO 1/0). Not used with SCI 1/0. 


For functions, the next eight or ten bytes are reserved for the function result. Eight bytes 
are used for all types except DECIMAL, which requires ten bytes. Results of types that re- 
quire fewer than eight bytes are stored left-justified in an eight-byte field. Beginning at the 
next byte (byte 284¢ for procedures, byte 304¢ or 324¢ for functions) is a variable-length 


section that contains compiler-generated temporaries, local variables, parameters (arguments), 


and dynamic arrays. 


The stack frames of the program and the active routines are displayed, followed by the dis- 
plays of process GO$ and any other system processes. The displays of other processes are 
similar to that of the user process, except that the area of the stack above the top stack 
frame is shown only for the user process. 


The stack frame for the main program contains two examples of the Pascal File Descriptor. 
The Pascal File Descriptor is built by Pascal software and describes the file to the runtime 


support system. The fields of the descriptor and the hexadecimal relative byte numbers of 
the fields are: 


° 


FLADR, bytes 0 and 1. The address of this file descriptor. 


NEXT, bytes 2 and 3. The index (based on zero) of the next character in the buffer 
to be read or written (Textfiles only). 


LAST, bytes 4 and 5. The index of the last nonblank character in the buffer (Text- 
files only). 


BUFF, bytes 6 and 7. The address of the buffer containing the next record (Textfiles 
and sequential files only). 


FS, byte 8. The file state code. The file state codes are: 


- 00 Closed. 

- 01 Open for write. 

- 02 Open for read. 

- 03 End of file read. 

- 04 End of medium read (applies to SKIPFILES procedure). 

- 05 Beginning of medium read (applies to SKIPFILES procedure). 


F, byte 9. Flags. Bits 0 and 1 of the byte specify the file type as follows: 
- 00 Sequential file (byte value is 004¢ through 3F 4¢). 
- 01 Text file (byte value is 404¢ through 7F4,¢). 
- 10 Random file (byte value is 804¢ through BFy¢). 


Bit 7 specifies error termination. Set to 1 to terminate on error; set to 0 to return to 
user program on |/O open error. (Odd byte values terminate on all errors.) 
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2 ELSIZE, bytes A and B. Element size in bytes. 
a RECSIZE, bytes C and D. Logical record length. 
¢ SCB, bytes E and F. Address of supervisor call block for |/O operations. 


FILE NAME, bytes 10 through 17. Logical file name as declared in Pascal program. 
STATUS, bytes 1C and 1D. Status of last |/O operation (returned by operating system). 


The Pascal File Descriptor for the predefined file OUTPUT is at relative address 404¢ of the 
main program stack frame. That of the predefined file INPUT is at relative address 604¢ of 
the main program stack frame. 


Following the process dumps is the dump of the heap. This contains the dynamic variables 
and records for the program. The runtime system uses dynamic variables and records that 
are in the heap. Dynamic variables and records of the user program, if any, are in the heap 
also. 


14.7.4 Use of the Abnormal Termination Dump 


The abnormal termination dump is very useful in analyzing errors, especially when the contents 
of variables show what caused the error. The stack frames of the program and active routines 
show the progress of the program up to the point at which the error occurred. The source 
listing in figure 9-1 is the listing of the program that terminated in the error of the example 
dump. It consists of program module DIGIO and procedure modules CCHAR and CINT. The 
dump of the stack includes a stack frame for DIGIO but none for CCHAR or CINT. Therefore, 
only DIGIO was active when the error occurred; the error occurred when one of the instruc- 
tions of the main program module was executed, 


The information provided in the source listing (figure 9-1) as a result of specifying the MAP 
option is essential for examining the contents of variables and arrays. The map of identifiers 
for a module shows the stack frame displacement of each variable or parameter of the module. 
The map of identifiers for DIGIO shows that array BUFF consists of 12 bytes starting at relative 
address 804¢. In figure 14-2, the left column contains the hexadecimal address of the first 
byte displayed on each line. 


The number in parentheses is the hexadecimal displacement of that byte from the start of 

the stack frame. The 12 bytes in relative bytes 284¢ through 334¢ of the stack frame of DIGIO 
contain zeros. The map of identifiers shows that variable | occupies 2 bytes at relative byte 
3646+ This location also contains zero, Variable NUM occupies 2 bytes at relative byte 344¢, 
which also contain zero. If the error involved the data in any of these variables, locating 

the values of the variables in the stack frame enables the user to determine what went wrong. 


The variables of routines may be parameters passed by value or parameters passed by refe- 
rence. In the case of parameters passed by value, the stack frame contains the values of 
these parameters when the routine was called. In the case of parameters passed by reference, 
the stack frame contains the address of the parameter. 
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Information in the stack frames is useful in determining the point at which the error occurred. 
To trace execution back to the instruction that failed in the user program requires the source 
listing (figure 9-1), the reverse assembly listing (figure 13-1), the linking map (figure 14-3), 
and the abnormal termination dump (figure 14-2). Relative address 244¢ (PC) of the process 
record contains the contents of the program counter when process GO$ received control 

for termination. In the example, this address contains 15924¢. From the linking map, figure 
14-3, the code at that address is found to be part of module MAIN, loaded at address 0000 
and extending through address 38324¢. Since the top stack frame in the stack is that of 
HALTS, the address in PC of the process record should be in that routine. The definitions 
section of the linking map shows the entry point of routine HALTS to be 15824¢, so the PC 
value stored is from routine HALTS. 


The stack frame of HALTS identifies the routine from which HALTS received control. Relative 
address 244¢ (RETADDR) contains either the address in the program counter when HALT$ 
received control, zero, or FFFFy¢. In the example, address 244¢ contains 1A444¢, indicating 
that the standard category linkage was used; the address from the program counter is 1A444¢. 
This address is also in module MAIN and should be in routine IOSERR. The definitions section 

of the linking map shows the entry point of routine IOSERR to be 18864¢ and the entry point 
of the routine above IOSERR to be 1A664¢ (MAP$). The program counter address is in routine 
IOSERR. 


The stack frames of OPENS and RESTST can be checked in a similar manner to verify the 
path of control back through these routines. Relative address 1C1¢ contains 3A604¢, irdica- 
ting that control passed to routine RESTS$T from that point. The module list of the linking map 
shows that the main module of the user program, DIGIO, was loaded at address 39C24¢ and 
occupies 1264¢ bytes. Address 3A604¢ is address 9E4¢ relative to the load point 39C24¢. 

The reverse assembly listing shows that relative address 9E4¢ is the address of an INC instruc- 
tion that follows a BLWP instruction. That BLWP instruction transferred control to routine 
RESTST. 


To reconstruct the events resulting in the termination, DIGIO called RESTS$T, implementing 
the RESET procedure call in the source program. RESTST called routine OPENS to open file 
INPUT. The open operation failed because the file assigned for input had not been created. 
OPENS called routine IOSERR, which called HALT$, HALTS called process GO$, which ter- 
minated the program and printed the dump. 


14.7.5 Unformatted Abnormal Termination Dump 


The linking procedures describe the linking of an alternate abnormal termination dump routine. 
Figure 14-4 shows an example of the unformatted dump written by this routine. 


The dump contains approximately the same information, printed in the order of memory addres- 
ses rather than in the process record, stack region, heap region order of the formatted abnor- 
mal termination dump. The four characters printed in the upper left corner of the unformatted 
dump are the address of the process record. The left column contains the hexadecimal addres- 
ses of the first words displayed on the lines of the dump. The numbers in parentheses are 
relative addresses within the blocks of data displayed in the dump. The next eight columns 
show the contents of eight words represented as hexadecimal numbers. The right column 
contains the contents of the same eight words as ASCli characters, with unprintable characters 
represented by periods (.). A group of three periods at the left on a line represents one or 

more lines identical to the preceding line (normally containing zeros). 
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SDSLNK 3.2.2 78.275 11/06/78 13:56:15 PA 1 
COMMAND LIST 
FORMAT IMAGE REPLACE 

LIBRARY - TIP. OBJ 

PHASE 0,DIGIN 

INCLUDE (MAIN) 

INCLUDE . «PAULA. OBJ. DIGIO 

END 

SDSLNK 3.2.2 78.275 11/06/78 13:56:15 FALE Zz 
LINK MAP 

CONTROL FILE = .PAULA.CTL.DIGIO 

LINKED OUTPUT FILE = .PAULA.PGM 

LIST FILE = .FAULA.LLST.DIGIO 

NUMBER OF QUTPUT RECORDS = 76 

QUTPUT FORMAT = IMAGE 

LIBRARIES 

Na CIRGANI ZATION PATHNAME 
A RANDOM - TIP.OBI 

SDOSLNK 3.2.2 78.275 11/06/78 13:56:15 PAGE 3 


PHASE ©, DIGIO QRIGIN = 0000 LENGTH = SOOE (TASK ID = 4) ENTRY=0020 
MODULE NG QRIGIN LENGTH TYPE NATE TIME CREATOR 
MAIN 1 0000 3SE2 INCLUDE, 1 10/31/78 21237827 SDSLNK 
$DATA i 463E OSSA 

CCHAR 2 SeE2 0076 INCLUDE 11/06/78 12:55:12 DXPSCL 
CINT 3 2958 OO6A INCIUDE 11/96/78 13:55:19 ape 
nica 4 29C2 0126 INCLUDE 11/06/78 13:55:34 NXPSc 
MESAGSDX 5 BAER OOFS LIBRARY, 1 10/31/78 15:31:248 DXPSCL 
P$TERM & SBDE oOO50 LIBRARY: 1 10/31/78 19:43:37 SNSMAC 
SCIRTNS a SC2E 0784 LIBRARY, | 10/31/78 21235239 SDSLNK 
$DATA 2 4E9E 0424 

INIT#1 & 43B2 0060 LIBRARY; 1 10/21/78 IS: 31:22 OXPSCL 
PSINIT 9 4412 0002 LIBRARY; | 10/31/78 17:45:21 SDSMAC 
PRSINIT 10 4414 0002 LIBRARY; J 10/31/78 17:45:46 SDSMAC 
RESTST il 4416 0as0 LIBRARY; 1 10/31/78 15:50:34 DXPSCL 
GETSCH 12 4446 002A LIBRARY, 1 10/31/78 17:41:20 SDSMAC 
RDLNS 13 4490 OOE4 LIBRARY; | 10/31/78 15:49:50 DXPSCL 
GETSRCOR 14 4574 eoCA LIBRARY: 3 10/31/78 15:48:16 EXPSCL 
Figure 14-3. Linking Map of Example Program (Snee? 1 of 2) 


COMMON 


CURS 
HEAFS 
SYS$MS 
PARMS 


| NAME 


*xABEND$ 
#BINSSV 
| cLSs 
| #CURS 
#eNSTRSs 
#ENTS 
ENT$& 
#FINISS 
GETSRC 
IQSERR 
MOVES 
#MOVSS 
OPENS 
| #PATCHS 
PSCLS$ 
RESTST 
RETSM 
#RSLIMRS 
*#S$IDTV 
SMAPS 


SDSLNE 
NAME 


#S$RTCA 
SETSAI 
SVCS 
TSMSG 

*TXSERR 
WRL.NS 
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DFEFFINITIQANS 


NNN BRP RR eR Re RRR eee ee ee 


NCI 


_— ee NY 


1 4F RC 0018 
! 4Fn4 0010 
= 4FE4 0020 
1 5004 0008 
VALUE NO NAME VALUE NO 
oOoAC 1 *ABNDSO OOD4 
2BOO# | CCHAR 38F4 
OT72- 3 *#ClLS$FI O1DA 
o3so0 1 #CURS$ OF 94 
o3cse 1 *ENCST OBF2 
OEFE 1 ENT$1 0072 
OFS4 1 *ENX$T OFCA 
B1AA 1 FL$INI 133C 
4ssc 14 *HALTS 1582 
1a64 1 *#MAPS 1A6&6 
icsA 1 #HhOVES 1C28s 
1es2 1 #MCIVSN 1c2c 
1F44 1 *OPNSFI 20B0 
OFIC | PESINI 4414 
SOFA 4 #PUT$RC 25F& 
44274 11 #RESUMS 275A 
OFAC 1 RET$S OF AE 
2776 1 S$GTCA 4258 
2m44 #7 #S#IMUL SDe4 
BFnA 67 *#5$NEW 40683 
S.2.2 78.275 
VALUE NO NAME VALE 
436A 7 #SESCFY 411E 
295E 1 #SETSNA 2A20 
ZAGE 1 TSCC OOOA* 
OOOE# | *#TS$RNIOQ OOO3* 
S27A 1 *#WROST S462 
3694 1 WRiST 3716 
COMPLETED 


NAME 


*ABNI'$ 1 
CINT 
*CMPSST 
DIVs$ 
*ENIST 
ENT$2 
*EQF$WR 
*FREES 
*HEAPST 
#MARGSN 
MOVSé 

#MSGS 
PSInit 
PBSTER 
PUTCHS 
RET$1 
REWNI'$ 

#S¢IADN 
SSINT 
S$PARM 


11/06/77 
NAME 


SS$SETS 
#S5TACKS 

TSEC: 
*#TSSTn 
#WRECFS 
#WRXST 


VALUE NO 


oocc 
3968 
o20C 
O38E 
OCB2 
OEEE 
1178 
11F6 
15cCC 
OOOE 
1034 
0010 
4412 
4414 
25B4 
0080 
26C8 
3C2E 
SESE 
40F4 


13:56: 


VALVE 


41s: 
ZA4A 
O00C # 
OOOk# 
S546 
S806. 


Linking Map of Example Program (Sheet 2 of 2) 


NNN BRR Re OR RR BRR Re RRR ue 


15 
NO 


7 


— ee 


NAME 


*ABNIIS2 
*CLOSES 
*CREATS 
*DMPP¢H 
*ENSST 
ENTSM 
EOLN$ 
GET$CH 
INIT$1 
MESAGS 
*MOVS7 
*NEWS 
PS$TERM 
*PRTS$ME 
RDLNS 
RET$Z 
REWRT$ 
*S$ IASC 
*S$ISUB 
S$PTCA 


NAME 


S$S TOF 
*STORES 
*#TSINID 
*TSTIR 
*#WRIST 


VALUE NO 


OO9E 
0118 
O2Z2E 
0416 
OE10 
OFO8 
1198 
4466 
43CE 
BAFE 
1034 
1C5A 
3BF2 
22C8 
44AA 
OF 9A 
2702 
3CA2 
3CS6 
4326 


PAGE 
VALIIE 


42R6 
3152 
0004 * 
4FReC 
25AS 


NNN BRR Re OR RYH RR Re ee 
G@ j 


z+ 
= 


eh ee NY 
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With the process record address, the user can find the process record in the dump. The con- 
tents of the process record are listed in paragraph 14.7.3. The more useful items of information 
in the process record are: 


ss Address of the stack frame of the main program - relative address 00024¢ 
- Contents of WP - relative address 00224¢ 

. Contents of PC - relative address 00244¢ 

e Address of the beginning of the stack region - relative address 002E4¢ 

_ Termination code (listed in paragraph E.3) - relative address 003C4¢ 


To use the unformatted dump, note the address of the process record and locate the block 
that contains the process recerd, The DISPLAY array shows the addresses of the stack frames 
for the most recently called routines at each static nesting level. The contents of each stack 
frame are listed in paragraph 14.7.3. The compiler listing (when written with the MAP option) 
shows the stack frame relative address of each variable. Pointers in the stack frame identify 
stack frames of other routines that were called at each static nesting level. File descriptors 
that describe the files defined for the task are also located in the stack frame, as described 

in paragraph 14.7.3. 


The contents of each stack frame are listed in paragraph 14.7.3. Using the contents of the 
WP, locate the stack frame for the routine that was executing when the abnormal termina- 
tion failed. Using the links in that stack frame, identify the stack frames that were active. 
Stack frames may contain file descriptors that describe the files used by the task. The file 
descriptor is described in paragraph 14.7.3. 
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4eAC 


2694 (0000) 
364A4(0010) 
34B4 (0020) 


4241 
494F 
0000 


36N4 (0040) 0000 


R6E6 (0000) O92E 
B4F2 (0000) 
2702 (0010) 
2712(0020) 


0000 
068D 
0000 


37 1LA(Q000) 
3272A(0010) 
273A(0020) 
374A( 0030) 


48Ac 
FFOO 
FFOO 
SABE 


375 (0000) 
3760 (0010) 
3770 (0020) 
3780. (0030) 
2790 (0040) 
B7AC (0050) 
37BC (0060) 
3700 (0070) 
327DC (0080) 
3B7EC (0090) 
3B7FC(O0A0) 
380C (OORO) 
32210(00C0) 
BE2C (O0N0) 
38:30 (Q0EO) 
2E4C (O0FO) 
3850 (0100) 
3E40(0110) 
BS870 (0120) 
BEEC: (0130) 
389C(0140) 
ASAC (0150) 
SBC (0160) 
3ecc (0170) 4400 
S3D0(0180) 223E 
BREC(O190O) 22SE 
BSFO(OLAO) 32484 
BPOC(OLRO) DAISk 
BP1IC(O1CO) BEES 
B920(01NO) O0O00 
B9SC(O1EO) 3458 
RV4C(OLFO) S347 
R9YSC (0200) 0000 


oO30C 
371A 
O18F 
ooo! 
378A 
R7S5E 
4D4F 
4749 
371A 
375C 
0158 
3BE&2E 
382C 
O1AC 
3852 
FFFF 
1BOS 
3872 
2894 
BS44 
43A2 
371A 
271A 


R990 (0240) 
39AC(O250) 
29BC (0260) 
3900 (0270) 
BOTIC (OF8O) 
39EC (0290) 
R9FC(OZA0) 
3AOC (0280) 


0000 
4053 
SSAE 
43F2 
O00! 
felerala) 
S91C 
S9FA 
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40:54 
4E20 
0000 


0000 


S359 


ORO4 
0000 
0000 


442A 
FFOO 
375E 
SRGE 


BAES 
0000 
ere Tare) 
0000 
3B7ES 
0424 
2020 
4E53 
0000 
SBE 
44648 
48AC 
381 
44644 
375C 
SS6C0 
371A 
44648 
1B08 
OSBC 
004s 
3848 
3872 
3E98 
371A 
ROFD 
OOFZ 
S6F2 
0000 
0000 
CSaF 
O44F 
0000 


0000 
0001 
Cisr 
43FE 
0000 
0000 
0014 
BABS 


2042 
4245 
0000 


0000 
534D 


0001 
0000 
OLFF 


3816 
FFOO 
040C 
0000 


0000 
375E 
0000 
37864 
OoceE 
0000 
4558 
ZESC 
0003 
O40F 
278A 
0001 
oo0r4 
S7ES6 
3BB64 
0000 
3816 
0000 
OooL 
31SF 
3870 
O5BC 
1 RRA 
QOOOK 
Bav4 
5450 
3SEE 
Sas 
0008 
000? 
OOOO 
S554 
0000 


43F4 
o000 
=7&A 
4026 
0000 
ale e18) 
O000 


2262 


414C 
4749 
0000 


0000 
5347 


3694 
36E6 


FFOO 
FFOO 
Disr 
0000 


0000 
378A 
FFFF 
0000 
371A 
4SAC 
4543 
O815 
0000 
BBESE 
1024 
REPS 
0000 
0000 
37FE 
ooo1 
O1EE 
2020 
37E4 
CisFr 
ooo! 
B1iaF 
DisSF 
ORRS 
1 BBA 
S554 
3918 
0000 
3100 
3920 
0000 
bail @ bathe 


o000 


S8C2 
BPA0 
BECE 
OOOO 
0000 
oOoo0g 
0000 
371A 


4C45 
4E53 
0000 


0000 
3231 


OOO 
0000 


FFOO 
FFOO 
48AaC 
SFEO 


0000 
oce4 
0000 
0000 
375E 
0280 
5554 
0000 
3BFFO 
364A 
Disr 
203E 
2000 
O1B2 
0000 
2842 
SigF 
0000 
3872 
OOOR 
2EC2 
2EC2 
0000 
0000 
DisF 
2020 
223E 
5247 
36EF 
B9FA 
FFFF 
5409 
0000 


0057 
39DE 
FFFF 
0000 
0000 
0000 
0000 
32920 
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4420 
0000 
0000 


0000 


o000c: 
0000 


FFOO 
FFOO 
8000 
3FCE& 


0000 
371A 
48Aac 
4eAC 
0424 
4455 
494F 
OZESE 
felelen! 
3SFEO 
378A 
PDISE 
4306 
Z7EE 
3840 
3874 
FFFF 
2870 
32SA4 
FFFF 
4400 
BSA4 
3FFO 
OOOR 
SAES 
3EC:Z 
371A 
S6F2 
36EE 
3502 
0000 
0000 
0000 


0000 
2262 
0000 
o3ce 
0000 
Oooo 
0000 
35AE 


Unformatted Abnormal Termination 


4542 
0000 
0000 


0000 


0000 
0000 


FFOO 
FFOO 
0000 
FFFF 


0000 
3746 
4sAc 
0000 
442A 
4n50 
4E20 
0001 
364A 
S7E6 
378A 
SS1ia 
S146 
37E4 
0001 
SR4S 
QOOB 
CA&F 
2238 
0000 
38C6 
SECE 
0000 
SECS 
3804 
SSESE. 
3SB4 
0000 
O00 
0100 
S359 
0000 
0000 


0653 
371A 
sec2 
0000 
0000 
0000 
ooo!1 
C1iSF 


S554 
0000 
0000 


0000 


0000 
0000 


FFOO 
FFOO 
3275C 
0000 


0000 
O2E6 
029A 
OE6A 
FFOO 
4445 
4245 
S786 
3B463 
3816 
1024 
SB4é8 
3846 
O144 
0000 
SE72 
FFFF 
3868 
371A 
4400 
2238 
223E 
OOOB 
RBFO 
000d 
oOoOO9 
32B2 
0000 
0000 
38E6 
5340 
9000 
0000 


S53 
386 
oo0or: 
0000 
0000 
S6E6 
0000 
37Dé 


HALT CALLED ECUT 
ION BEGINS...... 


.- SYSMSG21 


anne Occ aca sae 


ccsne eSeocnseces 


H. D#B. oe accvncee 


Poe era ys. area a 
BOE naga te tee ease 


Cwaial Cees he ta 
ab wie SCS ee eee 
ttt ae 
Fel ainn tad” hea 
7*.%..H.. . DUMPDE 
mG =6EXECUTION BE 
GING. n't sewlirwas Fe 
Peeeoses fae wees 
TNS e003 O7.7.8. 
eke Farteeletecee 
6S.H...8(->3.8.3. 
8,8 .....-C.8.8F 
aS Pee eR ok eee 
GRINS 67i 65 BR ccs 
--S..-.. SBR. BFS. 
valet satura ean 
Sihies «Goi eBs 
Sinevnr ata oe Ors 
Os glace ieee able 
Cae Moe 'css Dees “S 
Cs eee Ce ae 2 
Pi Sececiaxaeth atak 
Di Gas ste gate Be 
COT Rc wcale DeCus 
">6.TPLUT &.8... 
As nt Be Hs 237 6Ss. 2 
eGsSVis SEB. ccc 
Ge oc se £0 6e6e ewes 
oie Gin vie  Reve ea ee 
Bk win cee rac SYoM 
SG. OUTPUT... ccueee 


See FeSenencGece 
Co. Ck. ew eee 


92tB". 759 BreaTs 


Dump Listing (Sheet 1 of 2) 


2A10.002C0) 
3A2C (02N0) 
SA3C(O2E0) 


SESC (0400) 


437A(Q000) 
426A (0010) 
429A(0020) 


43A2 (0000) 
43R2(0010) 
4302 (0020) 
42012 (0030) 
43E2(0040) 


43F4(0000) 


4400(0000) 
4410(0010) 
4420(0020) 


4428 (0000) 
4438(0010) 
4442(0020) 
4458(0030) 
4448(0040) 
4478(0050) 
4438 (00460) 
44928(0070) 
4443 (0080) 
44B8 (0090) 
4403 (00A0) 
4408 (00R0) 
44E32(00C0) 
44F8( 0020) 
4508 (00F0) 
4S18(00F0) 
4528 (0100) 
4525(0110) 
4545(0120) 
4558 (0130) 


4&A& (0480) 


48AC (0000) 
4880 (0010) 
4ace (0020) 
4s00: (0020) 
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3920 
0000 
0000 


0000 


O92E 


0000 
o48D 
0000 


029C 
0292 
O1SF 
0000 
0000 
4400 
0000 
437A 
0000 
44010 
C5ar 
5420 
O7E4 
44E6 
0000 
437A 
O00 
0000 
4026 
0000 


0000 


371A 
FFOO 
FFQO 
4556 


FFFF 
0000 
0000 


0000 


0000 
0000 
0000 


3341 
3334 
3330 
3320 
2020 


4F55 


OBOS 
0000 
0000 


482A 
441A 
0000 
0000 
446A 
4F55 
4424 
494E 
0003 
4400 
37D6 
2020 
48AC 
0000 
FFFF 
4512 
4518 
0000 
0000 
0000 


442A 
FFOO 
44AA 
48AA 


0000 
0094 
0000 


0000 


0000 
0000 
0000 
22278 
32420 
2032 
2020 


2033 


5450 


000% 
0000 
OFF 


0000 
442A 
4412 
0000 
0016 
5450 
0000 
5055 
ooo! 
44A46 
442A 
0001 
3B70 
Z220G 
0000 
0086 
4556 
FFFF 
0000 
0000 


444A 
FFOO 
0730 
0000 


S916. 
0000 
0000 


0000 


0000 
0000 


2030 
3334 
2033 
2033 
32320 


5554 


3872 
43F4 


0000 
44AA 
O2E6 
0000 
OO4F 
5554 
0000 
5420 
0000 
4402 
O2D2 
0002 
0A48 
48AC 
44E0 
0000 
2262 
0000 
0352 
0000 


FFOO 
FFOO 
CS8F 
0000 


000Cc. 
0000 
0000 


0000 


0000 
0000 


2030 
3230 
2320 
3332 
0000 


3231 


0050 
0000 


0000 
0720 
0000 
0000 
43A2 
2020 
0000 
2020 
0000 
O7FE 
0000 
3B70 
c5aFr 
4408 
0000 
0000 
48a 
4512 
0000 
0000 


FFOO 
FFOO 
371A 
FEO 
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B6E4 
0001 
0000 


0000 


0000 
0000 


2720 
20233 
S333 
3020 
0000 


0002 
0000 


0000 
48AC 
0000 
0000 
0141 
0001 
0041 
0001 
0000 
48Ac 
0300 
3FC8 
0000 
O6FE 
437A 
0000 
44E4 
0028 
0000 
0000 


FFOO 
FFOOQ 
2000 
SFCE 
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S6FO 
0000 
0000 


0000 
0000 


230 
3333 
3333 
35333 
0000 


0000 
0000 


0000 
4412 
0000 
0000 
0001 
0100 
0002 
0100 
0000 
44280 
494E 
4402 
2000 
CSaFrF 
0000 
0000 
1E4c 
4378 
ooo1 
0000 


FFOO 
FFOO 
0000 
O300 


3650 
0000 
0000 


0000 
0000 


3334 
3420 
2033 
3333 
0000 


0000 
0000 


0000 
OZE6 
0000 
0000 
0050 
0000 
0000 
0000 
0000 
0202 
5055 
44FC 
0000 
0000 
0000 
0001 
CS8F 
43A0 
0000 
0000 


FFOO 
FFOO 
4426 


PF wnee Peach bh. OP 


43A2(0000) 2034 
3334 3420 3334 


3320 SESS 3333 2 
333 33 


333 


= eereeees 


- -OUTPUT21 


cone eee ePecoene 


covcc elec cccccce 


oH. pce c en ceces 
- D.Den.. HD... 
eee eDeveccoenece 


--D..<.0C..A...P 
BsOUTPUT wiécsee 
oe Deo ccccencAnces 
C. INPUT 
D.U.0.0...H.Me.. 
oo 7e Dt. eee ee INPU 
T eoeet. 2.D.D. 
eoHe FecHecccvvne 
Done "NH. wc wwe 


coccee Devel ceee 


on See ee 


cede sha Diekiss 
ener newnkue (Geb. 
Cbs canaRenenitariee 


7-DED. wee ecvecee 
0 oD. 0. -7oee- - DE 
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14.8 Runtime Library Routines 


During a program debug, being knowledgeable about the functions runtime routines perform 
may be very helpful. For example, a memory dump may show that an error occurred ina 
library routine, and knowing what that routine does is helpful in understanding the dump. 
Also, it may be desirable to use the ABP command to set breakpoints on runtime routines. 
The following table lists runtime routines whose names might appear on a dump, or that can 
be referenced by the ABP command. Not listed are routines that are specified in Section 

15 and those that correspond directly to the routines in Appendix A, except for the addition 
of a "$" sign to the name. For example, library routine SQRT$ implements the SQRT function. 


Of particular interest is routine ABEND$ - the abnormal termination routine. Setting a break- 
point at the entry to ABEND$ causes execution to be suspended there when an error occurs 
(except for task errors and a few other special cases) that allows the debugger commands 
(SPS, LPS and LM) to be used to diagnose the problem. Register 0 in ABEND$ is the error 
code, as listed in paragraph E.3 in Appendix E. 


In the following list, the types of routine parameters are indicated by letters with the following 
meaning: 


A Memory address passed by value 1 word 
B Buffer address 1 word 
E File descriptor address (see paragraph 14.7.4) 1 word 
G Eight-character name passed by value 4 words 
| INTEGER value 1 word 
J LONGINT value for record number 2 words 
b. Length of variable - number of bytes 1 word 
N Source line number 1 word 
P Precision - number of bits or digits 1 word 
Q Scale factor - number of bits or digits 1 word 
S Address of SVC block 1 word 
T Address ef pointer variable 1 word 
U Address of INTEGER variable with column no. 1 word 
V Address of variable where result will be returned 1 word 
W Field width value 1 word 
X Address of input variable 1 word 
Z Address of status variable 1 word 


ABENDS(I) 
ASSERS(N) 
BOSFS(I,S,V) 


CLOSES$(F) 
CLS$(F) 
CLS$FILE(S) 
CSLABS(N,) 


CVTD$F(X,P,Q,V,P,Q) 
CVTDSL(X,P,Q,V) 
CVTDSR(X,P,Q,V) 
CVTESF(X,V,P,Q) 
CVTFSD(X,P,Q,V,P,Q) 
CVTFS$E(X,P,Q,V) 
CVTFSR(X,P,Q,V) 
CVTL$DiX,V,P,Q) 
CVTRS$D(X,V,P,Q) 
CVTRSF(X,V,P,Q) 


DEB$T(B,W,U, 
DEC$T(B,W,U, 


Z,L,V) 
Z,L,V) 
Zz 
DEF$T(B,W,P,Q,U,Z,L,V) 
DEI$T(B,W,U,Z,L,V) 
DEL$T(B,W,V,Z,L,V) 
DER$T(B,W,V,Z,L,V) 
DES$T(B,W,L,U,Z,L 


ENBS$T(B,W,U,Z,L,X) 
ENC$T1(B,W,U,Z,L,X) 


END$1(B,W,I,P,Q,U,Z,L,X) 


ENF$T(B,W,l,P,@,V,Z,L,X) 
ENI$T(3,W,U,Z,L,X) 
ENL$1(B,W,V,Z,L,X) 
ENR$T(B,W,|,P,U,Z,L,X) 
ENS$T(B,W,|,U,Z,L 
ENX$T(B,W,l,V,Z,L, 


EXTNDS$(F) 
FLSERR(I,I,1) 
FLSINIT(F,G,1,L) 
FREES (T) 
GET$RCOR(S,B,L,Z) 


GETSRLRE(S,B,u,L,Z) 
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Abnormal termination, l=error code 


ASSERT failure 
SKIPFILES 


Close file 

Close and deallocate file 
Close file 

CASE alternative error 


Convert DECIMAL to FIXED 
Convert DECIMAL to LONGINT 
Convert DECIMAL to REAL 
Convert double REAL to FIXED 
Convert FIXED to DECIMAL 
Convert FIXED to double REAL 
Convert FIXED to REAL 
Convert LONGINT to DECIMAL 
Convert REAL to DECIMAL 
Convert REAL to FIXED 


DECODE BOOLEAN 
DECODE CHAR 
DECODE DECIMAL 
DECODE FIXED 
DECODE INTEGER 
DECODE LONGINT 
DECODE REAL 
DECODE string 
DECODE hexadecimal 


ENCODE BOOLEAN 
ENCODE CHAR 
ENCODE DECIMAL 
ENCODE FIXED 
ENCODE INTEGER 
ENCODE LONGINT 
ENCODE REAL 
ENCODE string 
ENCODE hexadecimal 


EXTEND 
Floating point error 


Initialize file descriptor 
DISPOSE 


Read record from sequential or TEXT file 


Read record from RANDOM file 
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GO$ 

HALTS 
INIT$(T) 
lIOSERR(F,I) 


MESAG$DX(X,L) 
MESAG$EX(X,L) 
MESAG$LU(X,L) 
MESAG$MI(X,L) 

NEWS(T,L) 


OPENS (F,I) 


OPNSFILE(S,|, V,Z) 


OV$FLO(N) 
P$TERM 
PRECS$$(N) 


PRT$MEM(A,A) 


PUT$RCOR(S,B,L,Z) 
PUT$RLRE(S,B,u,L,Z) 


RDBS$T(F,W,V) 
RDC$T(F,W,V) 


RDDST(F,W,P,@,V) 
RDF$T(F,W,P,Q,V) 


RDI$ T(F,W,V) 
RDLS$ T(F,W,V) 


RDLNS(F) 
RDR$T(F,W,P,V) 
RDS$T(F,W,L,V) 
RDX$T(F,W,L,V) 


READ$(F,B) 
READS$REL(F,J,B) 
RESETS(F) 
RESTS$R(F) 
RESTS$S(F) 

RESTS T(F) 
RETRN$(G) 
REWNDS§(F) 
REWRTS(F) 
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Initiate/terminate process 

HALT 

Create and initialize user process 
Report I/O error 


MESSAGE - SCI version 

MESSAGE ~- EXTMSG version 
MESSAGE - LUNOBJ version 
MESSAGE - MINOBJ version 


NEW 

Open file 

Open file 

Report overflow error 
Terminate execution 
Precision check failure 
Dump block of memory 


Write a logical record 
Write record to RANDOM file 


READ BOOLEAN from TEXT file 
READ CHAR from TEXT file 
READ DECIMAL from TEXT file 
READ FIXED from TEXT file 
READ INTEGER from TEXT file 
READ LONGINT from TEXT file 


READLN 

READ REAL from TEXT file 

READ string from TEXT file 

READ hexadecimal from TEXT file 


READ sequential file 
READ RANDOM file 
RESET 

RESET RANDOM file 
RESET sequential file 
RESET TEXT file 
ESCAPE from a routine 
Rewind file 

REWRITE 


SCBS$FREE(T) 
SCBSINIT(T,I) 


S$NAME(S,G) 
SVvC$(S) 


TERMS(A) 
TX$ERR(F,I) 


WRB$T(F,W,X) 
WRCST(F,W,X) 
WRD$T(F,W,|,P,Q,X) 
WREST(F,W,|,P,Q,X) 
WRIS$ T(F,W,X) 

WRITES (F,B) 
WRLS$T(F,W,X) 
WRLNS(F) 
WRR$T(F,W,l,P,X) 
WRSS T(F,W,L,X) 
WRTSREL(F,J,B) 
WRX$T(F,W,L,V) 
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Deallocate SVC block 
Allocate and initialize SVC block 


SETNAME 
Supervisor call 


Write termination messages 
Report TEXT file error 


WRITE BOOLEAN to TEXT file 
WRITE CHAR to TEXT file 
WRITE DECIMAL to TEXT file 
WRITE FIXED to TEXT file 
WRITE INTEGER to TEXT file 
WRITE to sequential file 
WRITE LONGINT to TEXT file 
WRITELN 

WRITE REAL to TEXT file 
WRITE string to TEXT file 
WRITE to RANDOM file 

WRITE hexadecimal to TEXT file 
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15 COMPUTER-DEPENDENT SOURCE CODE PREPARATION TECHNIQUES 


15.1 General 


The source code preparation information in this section is not part of the Pascal language 
but is computer-dependent. It includes descriptions of the routines provided for direct CRU 
1/O and for interface with the TAXO operating system, and the guidelines for preparing source 


code for the optional linkage methods described in Section 14. Paragraphs in this section 
describe: 


Computer-dependent direct CRU I/O routines 

Operating system interface routines 

Preparing source code for a program with a dummy main routine 
Specifying and changing LUNOs for LUNO I/O 

Writing multiple task source code 

Writing source code for stand-alone tasks 


Writing source code for minimal runtime code 


15.2 Direct CRU 1/O Routines 
The direct CRU I/O routines provide I/O operations with CRU devices, These routines may 


be used for |/O operations with CRU devices that are not supported by the operating system. 
The CRU routines correspond to the CRU instructions of assembly language, as follows: 


° Procedure $LDCR, corresponding to an LDCR instruction 

Procedure $SBO, corresponding to an SBO instruction 

Procedure $SBZ, corresponding to an SBZ instruction 

Procedure $STCR, corresponding to an STCR instruction 

Function $TB, corresponding to a TB instruction 

NOTE 

The CRU base address for each of these routines is the CRU (hardware) address, Each 


routine multiplies the value by 2 and places the product in workspace register 12 for 
the operation. 
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15.2.1 Procedure $LDCR 


A routine that calls procedure $LDCR to output data to a CRU device must declare the pro- 
cedure among the declarations for the routine. The declaration for procedure $LDCR is as 
follows: 


PROCEDURE $LDCR(BASE, WIDTH, VALUE:INTEGER); EXTERNAL; 


Assuming that B, W, and V have been defined as integer variables, the following example 
shows a call to $LDCR: 


B:=#200; (*SET BASE TO #200%*) 
t= 8; (XWRITE A CHARACTER*) 
r= 1; (*CHARACTER IS #41 (A)*) 
$LDCR(B,W,V); (KOUTPUT CHARACTER*) 


15.2.2 Procedure $SBO 


A routine that calls procedure $SBO to set a CRU bit to one must declare the procedure atseng 
the declarations for the routine. The declaration for procedure $SBO is as follows: 


PROCEDURE $SBO(BASE:INTEGER); EXTERNAL; 


Assuming that ADDR has been declared as an integer variable, the following example shows 
a call to $SBO: 


ADDR:= #400; (*SET BASE TO #400*) 
ADDR:= ADDR + 4; (*ADD DISPLACEMENT*) 
$SBO(ADDR); (*SET BIT TO ONE*) 


15.2.3 Procedure $SBZ 


A routine that calls procedure $SBZ to set a CRU bit to zero must declare the procedure 
among the declarations for the routine. The declaration for procedure $SBZ is as follows: 


PROCEDURE $SBZ(BASE:INTEGER); EXTERNAL; 


Assuming that BITOUT has been declared as an integer variable, the following example shows 
a call to $SBZ: 


BITOUT:= #400; (*SET BASE TO #400*); 
BITOUT:= BITOUT + 2; (*ADD DISPLACEMENT*) 
$SBZ(BITOUT); (*SET BIT TO ZERO*) 


15.2.4 Procedure $STCR 


A routine that calls procedure $STCR to input data from a CRU device must declare the proce- 
dure among the declarations for the routine. The declaration for procedure $STCR is as follows: 


PROCEDURE $STCR(BASE,WDTH:INTEGER; VAR VALUE: INTEGER); EXTERNAL; 
The following is an example of the use of the $STCR procedure: 
CONST BS1 = #200; 


SIZE = 8: 
VAR INCHR: INTEGER; 
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$STCR(BS1,SIZE,INCHR); (*READ CHARACTER*) 


15.2.5 Function $TB 


A routine that calls function $TB to input a bit from a CRU device must declare the function 
among the declarations for the routine. The declaration for function $TB is as follows: 


FUNCTION $TB(BASE: INTEGER):BOOLEAN; EXTERNAL; 


Assuming that ADD has been declared as integer and BUSY has been declared as boolean, 
the following is an example of the use of function $TB: 


ADD:= #200; (*SET BASE TO #200*) 
ADD:= ADD + 8; (*ADD DISPLACEMENT *) 
BUSY:= $TB(ADD); (*SET BUSY TO VALUE OF CRU INPUT*) 


15.3 Operating System Interface Routines 


The Pascal software package includes routines that are not part of the language but that 
provide access to additional features of the TAXO operating system, as follows: 


ag I/O routines 

s Identification functions 

? Time and date procedures 

e Task control procedures 

_ Message handling procedures 

e System common access procedures 
as Semaphore procedures 

% Supervisor call procedure 


15.3.1 |/O Routines 


Five |/O routines included with the Pascal software provide the following capabilities: 


° Obtaining the value of a synonym 

9 Assigning a synonym and its value 

° Specifying the access name of a file 

© Defining the LUNO for a file 

2 Obtaining the device type for a textfile 
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15.3.1.1 Procedure FINDSSYN 


Procedure FINDSSYN provides a means for the program to obtain the value of a synonym. 
The procedure is a Pascal interface to system routine SSMAPS. To use FIND$SYN, the user 
must declare type STRING and must declare the procedure externally. The user must place 
the maximum length of the value string (as limited by the size of the array into which it is 
placed) into element 0 of the value string. The user then calls the procedure. 


The declaration of type STRING is as follows: 
TYPE STRING = PACKED ARRAY [0..N] OF CHAR; 


where N represents an integer constant chosen by the user; do not use "?" for the upper 
bound. 


The declaration for procedure FIND$SYN is as follows: 
PROCEDURE FINDSSYN (VAR SYNONYM, VALUE: STRING); EXTERNAL; 


The procedure has two parameters: a string that contains the synonym for which the valut 

is to be obtained, and a string into which FINDSSYN places the value. FINDSSYN accesses 

the Terminal Communications Area (TCA), searches the synonym table for the specified synonym, 
and returns the value. If the synonym is found, the number of characters in the value is placed 

in element 0 of the value string, and the characters of the value are placed in elements 1 

through N of the value string. If the synonym is not found, zero is placed in element 0 of 

the value string. When a routine that uses LUNO 1/0 calls procedure FIND$SYN, zero is placed 

in element 0 of the value string. 


An example of the use of procedure FINDSSYN is as follows: 


CONST SL = 80; (*MAXIMUM LENGTH OF STRING*) 
N = 3; (*SIZE OF SYNONYM®*) 
TYPE STRING = PACKED ARRAY [0. .SL] OF CHAR; 
(*REQUIRED TYPE*) 
VAR SYN: STRING; (*FOR SYNONYM PARAMETER'®) 
ACCESS_NAME: STRING: (*FOR VALUE PARAMETER*) 
SYNA:PACKED ARRAY[I. . .N] OF CHAR; 


PROCEDURE FINDSSYN (VAR SYNONYM, VALUE: STRING); EXTERNAL; 
(*EXTERNAL DECLARATION*) 


BEGIN 
SYNA: = ‘ONE’; 
FOR K:= 1 TO N DO 
SYN[K]= SYNALK]: (*SET UP SYNONYM NAME STRING*) 
SYN [0] := CHR(N): (*SET LENGTH OF STRING*) 


ACCESS_NAME [0]:= CHR(SL); (*SET MAXIMUM LENGTH*) 
FINDSSYN(SYN,ACCESS_NAME): 
(*CALL FINDSSYN*) 
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IF ORD(ACCESS_NAME [0]) = 0 THEN 


HALT; (*TERMINATE ABNORMALLY IF NO 
SYNONYM*) 


15.3.1.2 Procedure STORESSYN 


Procedure STORESSYN provides a means for the program to assign a value to a TAXO syno-. 
nym. The procedure is a Pascal interface to system routines SSGTCA, S$SETS, and S$PTCA, 


To use STORESSYN, the user must declare type STRING as described in paragraph 15.3.1.1 
and must declare the procedure externally. The user then calls the procedure. 


The declaration for procedure STORESSYN is as follows: 
PROCEDURE STORESSYN (VAR SYNONYM, VALUE: STRING); EXTERNAL; 


The procedure has two parameters: a string that contains the synonym and a string that con- 
tains the value. STORES$SYN reads the TCA from disk, adds the synonym and value to the 
synonym table, and writes the updated data to the disk. 


An example of the use of procedure STORESSYN is as follows: 


CONST SL = 80; (*MAXIMUM LENGTH OF STRING*) 
= 3; (*SIZE OF SYNONYM*) 

NP = 11; (*SIZE OF PATHNAME*) 

STRING = PACKED ARRAY [0. .SL] OF CHAR; 


(*REQUIRED TYPE*) 
VAR SYN: STRING; (*FOR SYNONYM PARAMETER*) 


ACCESS_NAME: STRING; (*FOR VALUE PARAMETER*) 
SYNA:PACKED ARRAY[I1. . .N] OF CHAR; 


ACNM:PACKED ARRAY[I. . .NP] OF CHAR; 


TYPE 


PROCEDURE STORESSYN (VAR SYNONYM, VALUE: STRING), EXTERNAL; 
(*EXTERNAL DECLARATION*) 


BEGIN 
SYNA: = ‘ONE’; 
ACNM: = ‘.INPUT.TEST’; 


FOR K:= | TON DO 
SYN [K]:= SYNA[K]; (*SET UP SYNONYM NAME STRING*) 
SYN[0] := CHR(N): (*SET LENGTH OF STRING*) 
FOR K:= | TO NP DO 
ACCESS_NAME[K]:= ACNM[K]: 


(*SET UP VALUE STRING*) 
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ACCESS__NAME[0] := CHR (NP): 
- “(®SET LENGTH OF VALUE STRING*) 
STORESSYN(SYN,ACCESS__NAME): 
(*CALL STORESSYN*) 


15.3.1.3 Procedure SETSACNM 


Procedure SETSACNM specifies the access name for a Pascal file. Procedure SETSACNM 

is called prior to the RESET or REWRITE procedure that opens the file, to override the default 
synonym. This procedure is more general than the SETNAME procedure, which assigns a syno- 
nym of eight characters or less. To use SETSACNM, the user must declare type STRING as 
described in paragraph 15.3.1.1 and must declare the procedure externally. The user then 
calls the procedure. 


The declaration for procedure SET$ACNM is as follows: 
PROCEDURE SETSACNM (VAR F:<ft>; VAR ACNM: STRING); EXTERNAL; 


The ft entry in the PROCEDURE declaration may be an identifier of a file type (FILE, RANDOM 
FILE, or TEXT) or a user-defined file type. The first parameter is a file name, and the second 
is a string that contains the access name. The access name parameter may not be a syno- 
nym. SETS$ACNM associates the specified access name with the specified file. 


When a routine that uses LUNO I/O calls procedure SETSACNM, SETSACNM associates the 
access name with ihe specified file and causes the RESET or REWRITE operation that opens 
the file to assign the LUNO to the access name. Unless a LUNO has been defined for the 
file using the SETLUNO procedure (described in paragraph 15.3.1.4), the default LUNO is 
used, It is the user's responsibility to define LUNOs so that two files that are open simulta- 
neously in a program do not use the same LUNO. When the RESET or REWRITE operation 
assigns the LUNO, the CLOSE operation releases the LUNO. A LUNO assigned by the task 
is a task local LUNO. 


Procedure FINDSSYN may be used to identify a synonym and obtain its value for use in a 
call to SETSACNM. The following example shows the use of both procedures: 


CONST SL = 80; (*MAXIMUM STRING LENGTH*) 
TYPE STRING = PACKED ARRAY [0. .SL] OF CHAR; 
(*REQUIRED TYPE*) 


VAR SYN: STRING; (*FOR SYNONYM PARAMETER*®*) 
ACCESS_NAME: STRING; (*FOR VALUE PARAMETER*®*) 
DATA_FILE: TEXT; (*FOR FILE PARAMETER*) 


N: INTEGER; (*FOR SIZE OF SYNONYM*) 


PROCEDURE FINDSSYN (VAR SYNONYM, VALUE: STRING); EXTERNAL; 
("EXTERNAL DECLARATIONS*) 
PROCEDURE SETSACNM (VAR F: TEXT: VAR ACNM: STRING); EXTERNAL; 
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BEGIN 
RESET(INPUT); (*OPEN INPUT FILE*) 
N:= 1; (*INITIALIZE INDEX*) 
WHILE NOT EOLN DO BEGIN (*READ SYNONYM*) 
READ(SYN[N)); 
N:= N+1 
END; 
SYN[0]:= CHR(N-1); (*SET LENGTH OF STRING*) 


ACCESS_NAME[0}:= CHR(SL); | (*SET MAXIMUM LENGTH*) 
FINDSSYN(SYN,ACCESS_NAME): (*CALL FINDSSYN*) 
IF ORD(ACCESS__NAME[0]) = 0 THEN 

(*IF NOT SYNONYM*) 

FOR K:= 0 TO N DO (*COPY TO ACCESS NAME*) 
ACCESS_NAME[K]:= SYN[K]; 

SETSACNM(DATA_FILE, ACCESS_NAME): 

(*SET FILE ACCESS NAME*) 
RESET(DATA_FILE); ("OPEN FILE*) 
READ(DATA_FILE...... (*READ FILE*) 


15.3.1.4 Procedure SETLUNO 


Procedure SETLUNO defines a LUNO for a file in a task that uses LUNO 1/0. LUNOs defined 
by procedure SETLUNO replace the default LUNOs, which are the ASCII code of the first 
letter of the file name (414¢ through 5A4¢ and 244¢). The user must call SETLUNO prior to 
calling SETSACNM, RESET, or REWRITE. The syntax for the procedure call is: 


SETLUNO(<file> ,<unit number>) 
The parameters for the call are file, the file identifier, and unit number, an integer value in 
the range of 0 through 254. SETLUNO only defines the LUNO to be used to access the file; 
it does not assign the LUNO. A LUNO may be assigned automatically, as described in para- 
graph 15.3.1.2 or may be assigned using an SCI or OCP command prior to executing the 
task. When procedure SETLUNO is called by a task using SCI synonym I/O, no operation 
is performed. 


The following example shews the use of procedure SETLUNO to define LUNO 6E4¢ for file 
FILE2: 


SETLUNO (FILE2,#6E) 


15.3.1.5 Function DEVSTYPE 


Function DEVS$TYPE returns the device type assigned to a file. Table 15-1 lists ine device 
type codes and their meanings. To use DEV$TYPE, the user must declare the function exter- 
nally, as follows: 

FUNCTION DEVSTYPE (VAR F:TEXT): INTEGER; EXTERNAL; 
The following example shows the use of function DEV$TYPE: 


IF DEVS TYPE(OUTPUT)>0 THEN WRITELN(OUTPUT) 
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Table 15-1. Device Type Codes 


Hexadecimal 

Device Type Device 

Dummy device 
Teleprinter 

Line printer 

Cassette 

Card reader 

Video display terminal 
Disk 


Communication device 


on wn oO fF WN = CO 


Magnetic tape 
Disk file 


ae 
Sal 


15.3.2 Identification Functions 
The identification functions return a requested identifier to the calling task. Function TASKID 
returns the runtime task identifier, and function STATIONID returns the identifier of the station 
(terminal) associated with a task. 
15.3.2.1 Function TASKID 
Function TASKID obtains the runtime identifier assigned to the task by TAXO. To use TASKID, 
the user must declare type BYTE and must declare function TASKID externally. The user may 
then call the function. 
The declaration for type BYTE is as follows: 

TYPE BYTE = 0. .#FF; 
The declaration for function TASKID is as follows: 


FUNCTION TASKID (:BYTE; EXTERNAL; 


There is no parameier for the function; the calling task is assumed to be the task for which 
the identifier is requested. The following is an example of the use of function TASKID: 


IDENT := TASKID; 


15.3.2.2 Function STATIONID 


Function STATIONID obtains the station identifier of the station associated with the task. To 
use STATIONID, the user must declare type BYTE as described in paragraph 15.3.2.1 and 
must declare function STATIONID externally. The user may then call the function. 
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The declaration for function STATIONID is as follows: 
FUNCTION STATIONID (): BYTE; EXTERNAL; 


There is no parameter for the function; the calling task is assumed to be the task for which 
the station identifier is requested. The following is an example of the use of function STATIONID: 


TRMNL := STATIONID 


15.3.3 Time and Date Procedures 


The time and date procedures supply time and date information and time delay suspensions 

to the task. Procedure ITIME returns integer values representing the hour, minute, and second. 
Procedure IDATE returns integer values representing the year, month, and day of the month. 
Procedure DELAY places the calling task in a time delay suspension for a specified period. 


15.3.3.1 Procedure ITIME 


Procedure ITIME obtains the time of day in a record declared for the hour, minute, and second 
values, To use procedure ITIME, the user must declare record TIME_TYPE and must declare 
procedure ITIME externally. The user may then call the procedure, 


The declaration for record TIME_TYPE is as follows: 
TYPE TIME_TYPE = RECORD 
HOUR: 0. .24; 
MINUTE: 0. .59; 
SECOND: 0. .59 
END; 
The declaration for procedure ITIME is as follows: 
PROCEDURE ITIME (VAR TIME: TIME_TYPE); EXTERNAL; 
The parameter for the procedure is a record into which the procedure places integer values 
for the hour, minute, and second. The following is an example of a call to procedure ITIME, 
which assumes that variable NOW is a record of type TIME_TYPE: 


ITIME (NOW): 


15.3.3.2 Procedure IDATE 


Procedure IDATE obtains the date in a record declared for the year, month, and day values. 

To use procedure IDATE, the user must declare record DATE_TYPE and must declare procedure 
IDATE externally. The user may then call the procedure. 

The declaration for record DATE_TYPE is as follows: 


TYPE DATE_TYPE = RECORD 


YEAR: INTEGER; 

MONTH: 1. «12; 

DAY: 1. 31 
END; 
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The declaration for procedure IDATE is as follows: 

PROCEDURE IDATE (VAR DATE: DATE_TYPE);EXTERNAL; 
The parameter for the procedure is a record into which the procedure places integer values 
for the year, month, and day of the month. The following is an example of a call to procedure 
IDATE, which assumes that variable TODAY is a record of type DATE_TYPE: 


IDATE (TODAY); 


15.3.3.3 Procedure DELAY 


Procedure DELAY suspends the calling task for a period of time that is a multiple of 50 milli- 
seconds, The interval is specified as a number of milliseconds, which is rounded off to the 
nearest 50-millisecond multiple. To use procedure DELAY, the user must declare the procedure 
externally. The user may then call the procedure. 


The declaration for procedure DELAY is as follows: 
PROCEDURE DELAY (MILLISECONDS: LONGINT); EXTERNAL; 


The parameter for the procedure is an integer representing a number of milliseconds. The 
procedure rounds this value to the nearest number of 50-millisecond periods and suspends 
the calling task for that interval. The following is an example of a call to procedure DELAY 
that suspends the task for 100 milliseconds: 


DELAY (85); 


15.3.4 Task Control Procedures 


The task control procedures allow cooperating tasks by providing a means of bidding tasks, 
suspending the calling task, and terminating unconditional suspension of a task. Procedure 
BID initiates execution of another task. Procedure SUSPEND suspends the calling task uncon- 
ditionally. Procedure ACTIVATE terminates the unconditional suspension of the specified task, 
causing the task to resume execution. 


15.3.4.1 Procedure BID 


Procedure BID initiates execution of a specified task and passes parameters to the task. To 
use procedure BID, the user must declare type BYTE aiid must declare procedure BID ex- 
ternally. The user may then call the procedure. 


The declaration for type BYTE is as follows: 


TYPE BYTE = O. .#FF; 
The declaration for procedure BID is as follows: 


PROCEDURE BID (PROGRAM_FILE_LUNO: BYTE; 
INSTALLED _TASK_ID: BYTE; 
PARAMETERS: LONGINT; 
VAR RUN_TIME_TASK_ID: BYTE; 
VAR STATUS: INTEGER); EXTERNAL; 
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The five parameters fer the procedure are: 


© LUNO of the program file on which the task is installed 

© Installed task identifier 

2 Parameters for the task (any type having a length of four bytes) 

@ A parameter into which procedure BID places the runtime ID of the task 
% A parameter into which procedure BID places a status code 


When the task being bid was linked without library .TIP,MINOBJ, the parameters specify stack 
and heap requirements, The first two bytes specify stack size in bytes, and the second two 
bytes specify heap size in bytes. When the task being bid is linked with library .TIP,MINOBJ 
and begins execution in a procedure (main routine omitted), the parameters are passed to 

the called procedure and are accessible to the procedure by the type declared in the proce- 
dure declaration. 


The status code is set to zero to indicate successful bidding of the task. Otherwise, the status 
code indicates an error code that is defined for the operating system. The TAXO error codes 
range from 2B014¢ through 2BFE1¢. 


The following is an example of a call to procedure BID to initiate task 1D+¢ on ihe program 


tile assigned to LUNO 3F4¢. The task requires 8004¢ bytes of stack and 2004¢ bytes of heap. 
TSKID and TSTAT are variables into which the runtime identifier and status are to be stored: 


BID (#3F,#1D,#8000200,TSKID,TSTAT); 


15.3.4.2 Procedure SUSPEND 


Procedure SUSPEND places the calling task in unconditional suspension. To use procedure 
SUSPEND, the user must declare the procedure externally. The user may then call the proce- 
dure. 


The declaration for procedure SUSPEND is as follows: 
PROCEDURE SUSPEND; EXTERNAL; 


The procedure has no parameter, it assumes that the calling task is the task to be suspended. 
The following is an example of a call to procedure SUSPEND: 


SUSPEND; 


15.3.4.3 Procedure ACTIVATE 


Procedure ACTIVATE terminates unconditional suspension of a specified suspended task. 

To use procedure ACTIVATE, the user must declare type BYTE as described in paragraph 
15.2.5.1 and must declare procedure ACTIVATE externally. The user may then call the proce- 
dure. 


The declaration for procedure ACTIVATE is as follows: 


PROCEDURE ACTIVATE (RUN_TIME_TASK_ID: BYTE; 
VAR STATUS: INTEGER); EXTERNAL; 
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The parameters are the runtime task identifier and a parameter into which the procedure 
places a status code. The runtime task identifier is not necessarily the installed task identifier; 
it is returned by a call to procedure BID when the task is initiated by procedure BID. Each 
task can obtain its own runtime task identifier by calling function TASKID. When the activation 
of the task is successful, the procedure returns Zero in the variable named as the second 
a ai Otherwise, the procedure returns a system error code (07004¢ through 
O7FF 46). 


The following is an example of a call to activate the task whose runtime identifier is 3C4¢, 
placing the status in variable TSTAT: 


ACTIVATE (#3C,TSTAT); 


15.3.5 Message Handling Procedures 


The message handling procedures send and receive messages between tasks and delete 
queued messages. Procedure PUTMSG places a message in a message queue. Procedure 
GETMSG obtains the next message from a queue. Procedure PRGMSG purges a message ew 
queue of any undelivered messages. 


15.3.5.1 Procedure PUTMSG 


Procedure PUTMSG places a specified message on a specified message queue. To use proce- 
dure PUTMSG, the user must declare type BYTE and must declare procedure PUTMSG exter- 
nally. The user may then call procedure PUTMSG. 


The declaration for type BYTE is as follows: 
TYPE BYTE =0. .#FF; 
The declaration for procedure PUTMSG is as follows: 


PROCEDURE PUTMSG (QUEUE: BYTE; 
VAR MESSAGE: PACKED ARRAY [ 1. .?] OF CHAR; 
VAR STATUS: BYTE); EXTERNAL; 


The queue parameter is an arbitrarily assigned number that identifies a message queue. A 
convenient method of assigning queue numbers that ensures a unique number is to use the 
runtime identifier of the task to which the message is directed as the queue number, This 
technique is used by some existing software, particularly the Sort/Merge package; by using 
the method, the user avoids assigning queue numbers that are already in use. When a task 
initiates another task by calling the BID procedure, the runtime identifier of the initiated task 
is returned. A task can obtain its own runtime identifier by calling function TASKID, 


The message parameter is the variable that contains the literal message to be placed in the 
queue. The status parameter is a variable into which the procedure places the status code. 
The status code is zero when the message is enqueued successfully. The status is a nonzero 
value when the queue is full. 


The following is an example of a call to procedure PUTMSG; the queue is 3C4¢, the message 
is contained in variable MSG1, and the status is returned in variable MSTAT: 


PUTMSG (#3C,MSG1,MSTAT); 
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15.3.5.2 Procedure GETMSG 


Procedure GETMSG obtains the next message from the specified queue. To use procedure 
GETMSG, the user must declare type BYTE as described in paragraph 15.3.5.1 and must de- 
clare procedure GETMSG externally. 


The declaration for procedure GETMSG is as follows: 


PROCEDURE GETMSG (QUEUE: BYTE; 
VAR BUFFER: PACKED ARRAY [ 1. .? ] OF CHAR; 
VAR LENGTH, STATUS: BYTE); EXTERNAL; 


The queue parameter is the queue number that other tasks use for messages directed to the 
calling task. The runtime task identifier is often used; it may be obtained by calling function 
TASKID. The buffer parameter is the variable into which the procedure places the received mes- 
sage. The length parameter is the variable into which the procedure places the number of 

bytes in the message. The status parameter is the variable into which the procedure places the 
status code: zero when the message is received, and a nonzero value when the queue is empty. 


The following is an example of a call to procedure GETMSG; the queue is 3C4¢, the message 
buffer is variable MSG2, the variable for the length is MLGTH, and the status variable is MSTAT: 


GETMSG (#3C,MSG2,MLGTH,MSTAT); 
15.3.5.3 Procedure PRGMSG 
Procedure PRGMSG purges a specified message queue by discarding any messages in the 
queue, leaving the queue empty. To use procedure PRGMSG, the user must declare type 
BYTE as described in paragraph 15.3.5.1 and must declare procedure PRGMSG externally. 
The user may then call procedure PRGMSG, 
The declaration for procedure PRGMSG is as follows: 


PROCEDURE PRGMSG (QUEUE: BYTE); EXTERNAL 


The queue parameter is the queue number that identifies the queue to be purged. The follow- 
ing is an example of a call to procedure PRGMSG for message queue 3C4¢: 


PRGMSG (#3C); 


15.3.6 System Common Access Procedures 


The system common procedures allow access to the system common area of memory defined 
during generation of the operating system. Under TAXO system common is not available to 
tasks that use more than two memory segments for other purposes (e.g., a task segment 

and two procedure segments). When system common is accessed, the heap region cannot 
expand. Procedure SYSCOM obtains the address and size of the system common area. Proce- 
dure RLSCOM releases the system common area from task access, 


15.3.6.1 Procedure SYSCOM 

Procedure SYSCOM allows access to the system common area by obtaining the address and 
size of the area defined for the operating system. To use procedure SYSCOM, the user must 
declare the procedure externally. The user may then call the procedure. 


The declaration of procedure SYSCOM is as follows: 


PROCEDURE SYSCOM (VAR ADDRESS, LENGTH: INTEGER); EXTERNAL; 
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The two parameters are integer variables into which the procedure places the address and 
the length, respectively, of the system common area. The following is an example of a call 
to procedure SYSCOM, specifying variables ADDR and LEN for the address and length: 


SYSCOM (ADDR,LEN); 


15.3.6.2 Procedure RLSCOM 


Procedure RLSCOM releases the task from access to system common. To use procedure 
RLSCOM, the user must declare the procedure externaily. The user may then call the proce- 
dure. 


The declaration of procedure RLSCOM is as follows: 
PROCEDURE RLSCOM (); EXTERNAL; 
The procedure has no parameter. The following is an example of a call to procedure RLSCOM: 


RLSCOM; 


15.3.7 Semaphore Procedures 


The semaphore procedures support the use of semaphores to synchronize execution of coope- 
tating tasks. A semaphore is an integer variable, typically a field of a COMMON block shared 
by several tasks. Initially, the variable is reset. When a section of code in a cooperating task 
is critical, the task tests the semaphore to determine if the critical code may be executed. 
When an activity of another task has set the semaphore to preveit any task from executing 
critical code, the task continues to test the semaphore before executing the critical code. 
When the semaphore is reset, the task sets the semaphore and executes the critical code. 
When execution of the critical code has completed, the task resets the semaphore, allowing 
another task that may be awaiting the resetting of the semaphore to continue. Procedure 
RESETSEMAPHORE resets a specified semaphore. Procedure TESTANDSET tests a semaphore, 
returns the state of the semaphore, and sets the semaphore if it was reset when tested. 


15.3.7.1 Procedure RESETSEMAPHORE 


Procedure RESETSEMAPHORE resets a specified semaphore. To use procedure RESETSEMA- 
PHORE, the user must declare the procedure externally. Then the user may call the proce- 
dure. 
The declaration of procedure RESETSEMAPHORE is as follows: 

PROCEDURE RESETSEMAPHORE (VAR SEMAPHORE: INTEGER); EXTERNAL; 
The parameter is the semaphore variable to be reset. An example of the use of the procedure 


is included in the exampie that shows the use uf a semaphore (shown in figure 15-1 and 
described in paragraph 15.3.7.2). 


15.3.7.2 Procedure TESTANDSET 


Procedure TESTANDSET tests a specified semaphore and sets a Boolean variable to the oppo- 
site state. When the semaphore is reset, the procedure also sets the semaphore. To use proce- 
dure TESTANDSET, the user must declare the procedure externally. Then the user may call 

the procedure. 


Pascai/0982/e 


15/15 


The declaration of procedure TESTANDSET is as follows: 


PROCEDURE TESTANDSET (VAR SEMAPHORE: INTEGER; 
(VAR SET_OK: BOOLEAN); EXTERNAL; 


The first parameter is an integer variable containing a value that is tested by the procedure, 
The second parameter is a Boolean variable that is set to false when the tested variable con- 
tains a value that is interpreted as the set state. The Boolean variable is set to true when 

the tested variable contains a value that is interpreted as the reset state. The tested variable 
(semaphore) is set to the set state at the same time that the Boolean variable is set to true. 


COMMON FLAG: INTEGER; (*Semaphore Variable*) 
VAR OK: BOOLEAN; (*True/ False Variable*) 
RESETSEMAPHORE(FLAG); (*Initialize Semaphore*) 
REPEAT (*Await Permission*) 
TESTANDSET(FLAG,OK): (*To Execute*) 
IF NOT OK THEN DELAY‘(100); (*Critical Code*) 


UNTIL OK; 
(*Critical Code Here*) 


RESETSEMAPHORE(FLAG); (*Reset Semaphore After Executing Critical Code*) 


Figure 15-1. Semaphore Example 


Figure 15-1 shows the use of a semaphoye to control execution of critical code in a task. 
Critical code is code that cannot be executed until another cooperating task has completed 
execution of part (or all) of its code, and/or code that must be executed before a coope- 
rating task can begin execution of part (or all) of its code. In the example shown, the sema- 
phore is integer variable FLAG in the COMMCN block. A similar declaration in each of the 
cooperating tasks makes this variable available to each task. Boolean variable OK is local 
to the task and contains the result of the test of the semaphore by procedure TESTANDSET. 


The task initializes the semaphore by executing a RESETSEMAPHORE procedure. At this point, 
any cooperating task that executes procedure TESTANDSET to test semaphore FLAG would 
set the semaphore and set the Boolean variable parameter to true. 


The REPEAT statement encloses both a call to procedure TESTANDSET and an IF statement. 
Boolean variable OK is set false by procedure TESTANDSET as long as semaphore FLAG re- 
mains set. The IF statement causes a call tu procedure DELAY that suspends the task for 

100 milliseconds when Boolean variable OK is false. The calls to procedures TESTANDSET 

and DELAY are repeated until semaphore FLAG is reset. When the task that has set the sema- 
phore completes Its critical code and resets the semaphore, procedure TESTANDSET sets 

the semaphore and sets Boolean variable OK to true. Procedure DELAY is not called, and 

the code following the REPEAT statement is executed. 
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The critical code follows the REPEAT statement and ends with a call to procedure RESET- 
SEMAPHORE, This code can only be executed while no other task that uses semaphore FLAG 
is executing its critical code. While this task is executing critical code, no other task that 
uses the semaphore can execute critical code. 


15.3.8 Procedure SVC$ 


Procedure SVC$ allows the user to execute any supervisor call of the operating system under 
which the task is executing. To use SVC$, the user must declare the structure for the super- 
visor call block and must declare procedure SVC$ externally. Next, the user must call proce- 
dure NEW to obtain an area for the supervisor call block and must build the supervisor call 
block. Then, the user may call procedure SVCS$. 


The following is an example of the declarations required for a supervisor call block and for 
a pointer to the supervisor call block: 


TYPE POINT = @DANDT; 
SCB = RECORD 
CODE: INTEGER; 
TIME: POINT 
END; 
PT = @SCB; 
DANDT = ARRAY [ 1..5 ] OF INTEGER; 
VAR BLOCK : PT; 


The declaration for procedure SVC$ is as follows: 
PROCEDURE SVC$(P:PT); EXTERNAL; 


The supervisor call block in the example is the block for a date and time supervisor call, This 
supervisor call requires a four-byte block with the code in the first byte and zero in the se- 
cond byte; the address of a five-word array for the date and time is in the third and fourth 
bytes. By declaring a record consisting of an integer and a pointer, the code and the zero 
can be initialized by an assignment. The array is obtained by a call to procedure NEW, and 
its address is placed in the record, The record SCB is also obiained by a call to procedure 
NEW, and its address is assigned to pointer PT. The following example shows the calls to 


procedure NEW and the call to procedure SVC$: ww 
NEW (BLOCK); (*OBTAIN SUPERVISOR CALL BLOCK*) 
WITH BLOCK@ DO BEGIN 
NEW (TIME); (*OBTAIN ARRAY FOR DATE AND TIME*) 
CODE: =#300; (*ASSIGN CODE AND ZERO*) 
SVC$(BLOCK); (*GET DATE AND TIME*) 
END; 


The result of the example call is that the system has placed the year in element 1 of the array 
pointed to by TIME, the day in element 2, the hour in element 3, the minute in element 4, 

and the second in element 5. All values are binary; the year is the binary equivalent of the 
two least significant digits of the year. 
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15.4 Dummy Main Routine 


Normally, a Pascal task consists of a main routine, or program, and one or more routines 
that the main routine calls, directly or indirectly. A Pascal task which is linked with the MINOBJ 


library can be compiled with a dummy main routine and begin execution in a procedure. There 
is an instance when this should be done: 


2 When a task linked for minimal runtime code does not require predeclared files INPUT 
and OUTPUT 


When a task does not require ihe predeclared files, the runtime code can be reduced below 
that resulting from linking with the minimal runtime library by omitting the code for these files. 
When a task is linked with a dummy main routine, the runtime code for these files is omitted. 


A program is compiled with a dummy main routine by declaring no variables in the declaration 
section of the main program and by placing a (*§ NO OBJECT*) option comment in the state- 


ments section of the main program. The following are the statements of a task with a dummy 
main routine: 


PROGRAM <name>; (*Arbitrary name; not used *) 


CONST ... (*Global constant declarations *) 

TYPE sss (*Global type declarations *) 

COMMON ... (*Declare ail COMMON blocks here *) 

PROCEDURE <name>; (*Declaration of initial procedure - see text *) 
VAR ... 


PROCEDURE ... (*Declaration of additional procedure *) 


BEGIN 


(*$ NO OBJECT *) 
END. 


(*Statements of main program *) 
(*The main program is a dummy *) 
(*End of program *) 


The declaration of the initial procedure for a task that executes under TAXO snould use the 
name PSCLS$$§; this name identifies the procedure as the one in which execution begins. 


Because the TASK macro instruction also specifies the size of stack and heap required, the 
parameters in the OCP command or in the routine that bids the task may be used by the 
initial procedure. The procedure declaration must declare the parameters as value parameters. 


The types of the parameters may be any type, but the maximum length of the two parameters 
is four bytes. 
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15.5 Program Considerations for LUNO 1/O 


Access to I/O devices and/or files by Logical Unit Number (LUNO) is available optionally 
for tasks executing under TAXO (see paragraph 14.3.3). This rnethod of access requires that 
a LUNO be defined for each I/O operation, either explicitly or by default. 


The SETLUNO procedure (paragraph 15.3.1.4) is the means of explicitly defining a LUNO 
for an I/O operation. When no LUNO is explicitly defined, the ASCII code for the first letter 
of the file name is the LUNO, by default. This results in LUNOs in the range of 414¢ through 
5A16, and 244¢ (for file names that start with $). 


The LUNOs for the predeciared files are: 


. 3C 46 for SYSMSG 
. 3D 46 for INPUT 
° 3E 46 for OUTPUT 


The LUNOs for predeclared files are defined by a library module. A module may be assembled 
defining other LUNOs for these files. The following is the source code for this module, LUS$MSG: 


IDT  'LUSMSG' 
DEF LUSMSG,LUSIN,LU$OUT 


LUS$MSG EQU >3C MESSAGE FILE 

LUSIN EQU >3D "INPUT" 

LUSOUT EQU >3E "OUTPUT" 
END 


To change the LUNOs for these files, change the operands for the three EQU directives to 
the desired LUNOs, Then, assemble the source code and link in the new module with an IN- 
CLUDE command in the link edit control file. 


Another way to change the LUNO for predeclared file OUTPUT is to use procedure SETLUNO 
along with the CLOSE and REWRITE procedures. This must be done in all tasks that attempt 
to use the LUNO concurrently. For example, if more than one task terminate abnormally and 
attempt to write abnormal termination dumps at the same time, each must have a different 
LUNO defined for file OUTPUT. Use the following procedure calls at the beginning of each 
task: 


CLOSE (OUTPUT); (*Close OUTPUT file (assigned to DUMY)*) 
SETLUNO (OUTPUT, XX); (*XX is desired LUNO*) 
REWRITE (OUTPUT); 


When the tasks are executed, LUNO 3E4¢ must be assigned to DUMY. Each task closes DUMY 
(which is automatically opened by the runtime code), redefines the LUNO for the OUTPUT 
file, and opens the file or device assigned to that LUNO. 


A program may call both SETLUNO and SETNAME procedures. When the runtime code for 
SCI I/O is linked with the task, procedure SETNAME executes and procedure SETLUNO is 
ignored. When the runtime code for LUNO I/O is linked with the task, procedure SETLUNO 
is executed and procedure SETNAME is ignored. 
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15.6 Program Considerations for Multiple Tasks 


There are several programming considerations to be observed when writing the source code 
for multiple tasks. 


Assign user task numbers in the range of 604¢ through EF4¢ to prevent assigning a task num- 
ber that has previously been assigned to a system task. 


Multiple tasks that are to execute under TAXO may be linked so that COMMON blocks are 
global, or they may be linked differently, making all or part of the COMMON data accessible 
only to one task (local). When procedure $BLOCKS (described in paragraph 14.3.15) is provi- 
ded, it is linked with a procedure segment and the COMMON biocks are global to all tasks 
that share that procedure segment. Otherwise, COMMON biocks are linked in the task seg- 
ment and are local to the task. 


Variables of pointer type should be local to one task. These variables access heap space. 
Under TAXO, the access to heap is by means of mapping, which differs from task to task. 
As a result, pointers of one task are invalid in another. 


When multiple tasks share procedure segments that include user routines, the user routines 
must be written with care to avoid invalid data references. A routine that is declared as EX- 
TERNAL must not reference global variables. (In this context, global variables are variables 
that are declared neither in the routine nor in COMMON.) The reason for this limitation is that 
these global variables are accessed through the stack frame; the stack frame of the routine 
when called in the program in which it is declared and the stack frame when called in a pro- 
gram in which the routine is externally declared are different. The requirement can be met 
by using the GLOBALS option when compiling the routine (paragraph 9.6.3). 


15.7 Program Considerations for Minimal Runtime Code 


Programs may be linked to require a minimal amount of runtime code, that required for the 

exact capabilities of the program. Paragraph 15.4 describes the coding of a program with 

a dummy main routine, which eliminates runtime code for predeclared files INPUT and OUTPUT. 
A further reduction of memory requirements for a task results when debugging options are 
omitted during compilation of the final version. The following option comment should be included: 


(*$ NO TRACEBACK, NO ASSERTS*) 
Also, none of the following options should be specified: 


CKINDEX 
CKOVER 
CKPREC 
CKPTR 
CKSET 
CKSUB 
CKTAG 
PROBER 
PROBES 
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APPENDIX A 


Pascal Standard Routines 


A.1 General 


The Pascal software includes a set of standard routines, which are listed in this appendix. 
Some of these are functions, and others are procedures; all may be called in a user program, 


A.2 Standard Functions 


The Pascal standard functions are listed in this paragraph with a brief description of each 
function. These functions are called with function calls as described in paragraph 8.4. The 
functions, listed in alphabetical order, are as follows: 


° 


° 


ABS(X) 

X is an expression of type INTEGER, LONGINT, REAL, FIXED, or DECIMAL. The result 
of ABS(X) is the absolute value of X and is of the same type as the input expression 
argument. 


ARCTAN(X) 


X is an expression of type INTEGER, LONGINT, REAL, DECIMAL, or FIXED. The result, 
of type REAL, is the arctangent of X. 


CHR(X) 


X is an expression of type INTEGER or LONGINT. The result of CHR(X), of type CHAR, 
is the character with the ordinal value of X modulo the ordinal of the last character. 


COLUMN(X) 


X is a variable of type TEXT. The result of COLUMN(X), of type INTEGER, is the column 
index (based at 1) at which the next character on the textfile X will be read or written. 


COS(X) 


X is an expression of type INTEGER, LONGINT, REAL, DECIMAL, or FIXED. The result, 
of type REAL, is the cosine of X. 


DEC(P, Q, X) 
X is an expression of type INTEGER, LONGINT, REAL, FIXED, or DECIMAL. The result 


is the decimal value corresponding to the value of X, but with precision P, a non- 
negative INTEGER constant, and scale factor Q, an INTEGER constant. 
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EOF(F) 

EOF ->EOF(INPUT) 

F is a variable of type FILE or TEXT. The result, of type BOOLEAN, is true if the 
sequential file F is not open for input or is in the end-of-file state or end-of-medium 
state. For random file F, EOF is true when the last read of file F attempted to access 
a nonexistent record. 

EOLN(H) 

EOLN ->EOLN(INPUT) 


H is a variable of type TEXT. The result, of type BOOLEAN, is TRUE if the last charac- 
ter of the current line in the file H has been read, 


EXP(X) 


X is an expression of type INTEGER, LONGINT, REAL, DECIMAL, or FIXED. The resuliw? 
of type REAL, is the exponential of X. 


FIX(P, Q, X) 
X is an expression of type INTEGER, LONGINT, REAL, FIXED, or DECIMAL. The result 


is the fixed point value corresponding to the value of X, but with precision P, a non- 
negative INTEGER constant, and scale factor Q, an INTEGER constant. 


FLOAT(X, P) 


X is an expression of type INTEGER, LONGINT, REAL, FIXED, or DECIMAL, P is a non- 
negative INTEGER constant. The result is the REAL value with precision P corres- 
ponding to the input argument X. 


LINT(X) 


X is an expression of type INTEGER or LONGINT. The result, of type LONGINT, is the 
converted value of X. 


LN(X) 
X is an expression of type INTEGER, LONGINT, REAL, DECIMAL, or FIXED. The result, 


of type REAL, is the natural logarithm of X if X is greater than zero, otherwise there 
is an error. 


LOCATION(X) 
X is a variable or a procedure or function identifier. The result, of type INTEGER, is 


the address of the variable X, or the entry point of the procedure or function X. If 
X is a variable, it may not be a component of a packed structure or a file variable. 
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LROUND(X) 


X is an expression of type REAL, DECIMAL, or FIXED. The result, of type LONGINT, 
is the rounded long integer. 


= LTRUNC(X + 0.5), X>=0 
= LTRUNC(X - 0.5), X<0 


LTRUNC(X) 


X is an expression of type REAL, DECIMAL, or FIXED. The result, of type LONGINT, 
is the whole part, i.e. the fractional part is discarded. 


ODD(X) 


X is an expression of type INTEGER or LONGINT. The result, of type BOOLEAN, is 
TRUE if and only if X is odd. 


ORD(X) 


X is an expression of type BOOLEAN, CHAR, or scalar type. The result, of type 
INTEGER, is the ordinal of the character X, or the ordinal of the scalar identifier X. 


PRED(X) 


X is an expression of some enumeration type. The result type is the same type as 

X and represents the predecessor of X. An error occurs if the subrange check option 

is set and the predecessor value in not an element of the enumeration. Otherwise, 

if X is not of type INTEGER or LONGINT and is the first element of the enumeration, 
PRED(X) is the undefined element of the enumeration type whose ordinal is ORD(X) - 1. 
If X is of type INTEGER or LONGINT, PRED(X) is X - 1. 


ROUND(X) 


X is an expression of type REAL, DECIMAL, or FIXED. The result, of type INTEGER, 
is the rounded integer. 


= TRUNC(X + 0.5), X>=0 
= TRUNC(X = 0.5), X<0 


SIN(X) 


X is an expression of type INTEGER, LONGINT, REAL, DECIMAL, or FIXED. The result, 
of type REAL, is the sine of X. 


Ask 


SIZE(T) 
SIZE(T,T1, «- , Tn) 
SIZE(V) 

SIZE(V,T 1, ee , Th) 


T is a type and Vis a variable. T may not be REAL(P), DECIMAL(P,Q), or FIXED(P,Q). 
To obtain the size of these types, a type identifier must be passed as the argument. 
The result, of type INTEGER, is the number of addressable storage units required to 
represent the type T or the variable V. If T is a record type, tag field values T1,... , Tn 
may be specified. n must be less than or equal to the number of variants and T1,..., 
Tn must represent a complete initial sequence of tag fields and be compile time con- 
stants. 


SQR(X) 


X is an expression of type INTEGER, LONGINT, REAL, DECIMAL, or FIXED. The result 
of the same type as X, is the value of X squared. 


SQRT(X) 


X is an expression of type INTEGER, LONGINT, REAL, DECIMAL, or FIXED. The result, 
of type REAL, is the square root of X. 


STATUS(F) 


F is a variable of type FILE or TEXT. The result, of type INTEGER, is the status of the 
last I/O operation on the file F. Procedure IOTERM must have been used to turn off 
the file's termination flag. 


SUCC(X) 


X is an expression of some enumeration type. The result, of the same type as X, re- 
presents the successor of X. An error occurs if the subrange check option is set and 
the successor value is not an element of the enumeration, Otherwise, if X is not of 
type INTEGER or LONGINT and is the last element of the enumeration. SUCC(X) is 
the undefined element of the enumeration type whose ordinal is ORD(X) + 1. If X 

is of type INTEGER or LONGINT, SUCC(X) is X + 1. 


TRUNC(X) 


X is an expression of type INTEGER, LONGINT, REAL, DECIMAL, or FIXED. The result, 
of type INTEGER, is the whole part, i.e. the fractional part is discarded. 
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UB(A) 
UB(A,D) 
UB(S) 


A is a variable of type ARRAY or a type identifier for an array. If D is present, it is 
an INTEGER constant greater than zero, For arrays, the result is the upper bound of 
the Dth dimension of the array A. When D is absent, the result is the upper bound 
of the index type of A. The type of the result is the same as the Dth index type. 
Dimensions are numbered left to right starting with 1. 


S is a variable of type SET or a type identifier denoting a set or a set expression. For 
sets, the result is the upper bound of the base type of the set S. The type of the result 
is the same as the base type of S. 


A.3 Pascal Standard Procedures 


The Pascal standard procedures are listed in this paragraph with a brief description of each 
procedure, These procedures are called with procedure statements as described in paragraph 
8.4. The procedures, listed in alphabetical order, are as follows: 


° 


CLOSE(F) 


F is a variable of type FILE or TEXT. This procedure places the file F in a closed state. 
If F is a sequential or text file that is open for output, write an end-of-file before closing. 
The textfile OUTPUT should not be closed. 


DATE(V) 


V is a variable of type PACKED ARRAY [ 1..8] OF CHAR, This procedure assigns the 
current date to the variable V. 


DECODE(S, N, STAT, Q) 


S is a variable of string type. N is a constant or variable of type INTEGER, STAT is 
a variable of type INTEGER. Q is a read paramenter. This procedure converts the 
characters starting at the Nth component of S to the internal representation of the 
read variable V and places the value in V. The status of the operation is returned in 
STAT. 


DISPOSE(P) 
DISPOSE(P, T1, o. , TN) 


P is a variable of pointer type. The T's, if present, are tag field values of the record 
variable P to be deallocated. n must be less than or equal to the total number of nested 
variants, and T1,... , Tn must represent a complete initial sequence of tag fields and 
be compile time constants. P may be a component of a packed structure. 


ENCODE(S, N, STAT, P) 


S is a variable of type string. N is a constant or variable of type INTEGER. STAT is 

a variable of type INTEGER. P is a write parameter. This procedure places the 
character representation of the value of the write expression E into S starting at the 
Nth componeni. The status of the operation (paragraph 6.5.4) is returned in STAT. 
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EXTEND(F) 


This procedure opens a sequential file F for output and positions it so the first compo- 
nent written will be the successor of the last component of the last logical file of the 
file. It opens a random file F for both input and output. EXTEND cannot be used on 

the predefined file OUTPUT, but the link edit option INCLUDE (EXTOUT) can be used 

to extend OUTPUT. 


HALT 


This procedure causes the execution of a program to be terminated and a memory 
dump (figure 14-2) to be written to the OUTPUT file. The HALT procedure is intended 
to be used for an abnormal termination of a program. 


IOTERM(F, OVAL, NVAL) - 


F is a variable of type FILE or TEXT. OVAL is a variable of type BOOLEAN, NVAL is 
an expression of type BOOLEAN. The value of the I/O error flag for the file F is re- w 
turned in OVAL and the flag's value is set to NVAL. 


MESSAGE(X) 


X is an expression of string type. This procedure places the string X into the system 
message file. 


NEW(P) 
NEW(P, 71, .. » TN) 


P is a variable of pointer type. The T's, if present, are tag field values of the record 
variable P to be allocated. n must be less than or equal to the total number of nested 
variants, and T1,... , Tn must represent a complete initial sequence of tag fields and 
be compile time constants. P may be a component of a packed Structure. 


PACK(A, I, Z) 


A is a variable of type ARRAY[ M..N] OF T1. 1! is an expression, the type of which 
must be compatible with the index type of A. Z is a variable of type PACKED ARRAY 
[ U..V] OF T2. T1 and T2 are compatible types and (N - M) >= (V - U). This procedure 
packs the components of A into the array Z, starting at the Ith component of A. 


PAGE(H) 
PAGE ->PAGE(OUTPUT) 


H is a variable of type TEXT. This procedure causes a Skip to the top of a new page 
when the textfile H is printed. 


READ 


This procedure is used to read sequential files, text files, and random files. The first 
argument indicates the file to be read from. If the first argument is not a file variable, 
"INPUT" is used as the default. For sequential files, the remaining argument(s) must 
specify variables which are of a type compatible with the particular file component 
type. The argument(s) for a text file read, so called read parameters, may be of 
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different types. Details describing the forms these parameters may take are found 
in paragraph 6.5. If the file is a random file, the second argument specified must be 
of type INTEGER (LONGINT) and is an index into the random file. 


READLN 


This procedure may be applied only to text files. It is used to read and subsequently 
skip to the beginning of the next line. The values read may stretch over several lines. 
The arguments for READLN are the same as those for READ applied to text files. 
(paragraph 6.5.2) 


RESET(F) 


F is a variable of FILE of TEXT type. This procedure opens the file F for input and 
positions it to read its first component. For a sequential or text file, if the file is empty, 
EOF(F) becomes TRUE, otherwise it becomes FALSE. 


REWRITE(F) 


F is a variable of type FILE or TEXT. This procedure makes the file F empty and opens 
it for output. For a sequential or text file, EOF(F) becomes TRUE. 


SETLUNO(F, LUNO) 


F is a variable of type FILE or TEXT. LUNO is type INTEGER and specifies the logical 
unit number for file F. 


SETMEMBER(F, LIBNAME, MEMBER) 


F is a variable of FILE or TEXT type. LIBNAME and MEMBER are both expressions 

of type PACKED ARRAY [ 1..8] OF CHAR, LIBNAME may not be the text file OUT- 

PUT. This procedure associates the file F with the member MEMBER of library LIBNAME, 
LIBNAME is the synonym of a directory, and MEMBER is the file name within the directory. 


SETNAME(F, NAME) 


F is a variable of FILE or TEXT type. NAME is an expression of type PACKED ARRAY 
[ 14.8] OF CHAR. NAME may not be the textfile OUTPUT. This procedure associates 
the file F with the external file specified by NAME. 


SKIPFILES(G, NFILE) 


G is a variable of type FILE or TEXT. NFILE is an expression of type INTEGER. SKIPFILES 
skips the number, NFILE, of file marks on the file G which is open for input. If NFILE 

is negative, the skip is in the "backward" direction; if NFILE is zero, the file is positioned 
to the beginning of the current logical file; if NFILE is positive, the skip is in the for- 
ward direction. The file is positioned at the start of a logical file. An attempt to position 
to a nonexistent file will cause an error. If EOF is TRUE following a skip, the end-of- 
medium has been reached, 


TIME(V) 


V is a variable of type PACKED ARRAY [ 1..8] OF CHAR, This procedure assigns the 
current time of day to the variable V. 
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UNPACK(Z, A, 1) 


Z is a variable of type PACKED ARRAY [ U..V] OF T1. A is a variable of type ARRAY 
[M..N] OF T2. | is an expression, the type of which must be compatible with the index 
type of A. T1 and T2 are compatible types and (N - M) >= (V- U). This procedure 
unpacks the components of Z into the array A starting at the Ith component of A. 


WRITE 


This procedure is used to write to sequential files, text files, and random files. The 
first argument indicates the file to be written to. If the first argument is not a file 
variable, "OUTPUT" is used as the default. For sequential files, the remaining argu- 
ment(s) must specify expressions which are of a type compatible with the particular 
file component type. The argument(s) for a text file write, so called write parameters, 
may be of different types. If the file is a random file, the second argument specified 
must be of type INTEGER (LONGINT) and is an index into the random file. Refer to 
paragraph 6.5 for the forms of the parameters. 


WRITEEOF(G) 


G is a variable of type FILE or TEXT. This procedure writes an end-of-file mark on 
the file G which is open for writing. G cannot be a random file. 


WRITELN 


This procedure may be applied only to text files, It is used to terminate the current 
line of the text file. If the current line is empty, a blank line is written. The arguments 
for WRITELN are the same as those for WRITE applied to text files, (Paragraph 6.5.2) 


Pascal/0982/e 


7A TRIUMPH-ADLER 


B/1 


APPENDIX B 


Example Programs 


B.1 General 


This appendix includes four examples of Pascal programs, The examples are chosen to illustrate 
applications of the capabilities of Pascal, rather than to show implementations of algorithms. 
The example programs are ROOT, QUAD, RANDOM, and GENERATE. 


B.2 ROOT 


Program ROOT illustrates the use of function parameters in a routine, and computes the roots 
of an equation in the form F(X)=0 using Newton's method. Figure B-1 shows the listing of 
the program. 


The declarations of the program declare two functions and a procedure. The main program 
calls the procedure, specifying the functions as parameters for the call. The procedure calls 
the function F to compute that function of the current value of X, and functions F and D 

in computing a new value of X. The procedure repeats these computations until the new 
value of F(X) has an absolute value equal to or greater than the absolute value of function 
F for the previous value of X. By using function parameters for procedure NEWTON it may 
be used for other functions when these functions and their derivatives are available to be 
substituted in the call. 


B.2 QUAD 


Program QUAD illustrates a program that computes the roots of quadratic equations without 
declaring any routines. Program QUAD also illustrates the use of formatted output. Figure 
B-2 shows the listing of the program. 


QUAD displays an appropriate heading, then reads value of a, b, and c (coefficients of equations 
of the form ax’ + bx + c) and solves the equations, QUAD displays the values of a, b, and 

c and computes the discriminant is zero or positive, and an ELSE clause computes and displays 
complex roots when the discriminant is negative. The program continues reading values and 
solving equations until the file is exhausted (end-of-file is true). 


B.3_ RANDOM 


Program RANDON illustrates the use of COMMAND and ACCESS declarations to make common 
variable RANSEED available to both procedure RANSET and procedure IRANDOM. The program 
also illustrates a program consisting only of procedures, with a dummy main program, The 

first procedure, RANSET, sets common variable RANSEED to the value of the parameter. The 
second procedure, IRANDOM, computes an integer random number and stores this number 

as a new value of RANSEED,. Figure B-3 shows the listing of program RANDOM. 


There is no way to compile a Pascal routine without also compiling a main program, but the 
main program may be a dummy module as in this example. The NO OBJECT option inhibits 
writing of the object module. The procedures RANSET and IRANDOM may be used in other 
programs that declare them externally. 
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Program ROOT: 
(#Author: *) 


(*Demonstration of Newton’s method for solution of an equation. #) 


(*The equation is in the form: F(X)=0. 


+) 


(*A function representing the derivative of F is required for *#) 


(*#Newton’s method. 
Var xX: Reali 


Function F(X: Real): Real: 
Begin F := Sqr(xX)-9 Endi 


Function D(X: Real): Real: 
Begin D := X+X_~ Endi 


Procedure NEWTON(Function F(Real): Reali 
Var X:Reel)i 
(*Finds the root of equation F(XxX)=0, 


Var 
ERROR : Reali 
Begin( *NEWTON#) 
Repeat 


Writeln(xX:18:7, F(X): 18:7); 
ERROR : = ABS(F(X))i 
X := X-F(X)/D(X)i 
Until ERROR <= ABS(F(X)) 
End ( #*NEWTON®) j 


Begin(*ROOT+) 
X := 10.-0i (*Initial guess*) 
Writeln(X)i 

End(#ROOT+*). 


Figure B-1. Listing of Example Program ROOT 


B.4 GENERATE 


*) 


Function D(Real): Reali 


where F’(X)=D(X). *) 


Program GENERATE illustrates the inclusion of externally compiled routines in a Pascal program. 
' It also illustrates the use of a record consisting of a variant part only. Figure B-4 shows the 


listing of the program. 


Program GENERATE generates random real numbers from integer real numbers generated 
using the procedures of the preceding example. Procedures RANSET and IRANDOM are declared 
externally in program GENERATE to enable use of these routines in program GENERATE. 
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Program quad; 


(* author: *) 
(* program to solve quadratic equations *) 
Var 

a,b,c: real, (*coefficients of equation*) 


realpart, imagpart: real; (*real and imaginary part of complex result*) 
disc: real; (*discriminant*) 
Begin 
(*write heading*) 
writeln('COEFFICIENTS':22, 'ROOT 1':26, ‘ROOT 2':22); 
writeln('A':8, 'B':10, 'C':10, 'REAL':15, 'IMAG':10, 
"REAL':12, 'IMAG':10); 
reset(input); 
while not eof do 
begin 
readin(a, b, c); 
write(' ', a:11:4, b:10:4, ¢:10:4); 
disc : = sqr(b) - 4*a*c; 
if disc >=0 
then (*roots are real*) 
writeln( (-b+sqrt(disc))/(2*a)):1 
(-b-sqrt(disc))/(2*a)):2 33 
else begin (*roots are complex*) 
realpart := b/(2*a); 
imagpart := sqrt(-disc)/(2*a); 
writeln(realpart:13:4, imagpart:10:4, 
realpart:12:4, -imagpart:10:4); 
end (*else*) 
end (*while not eof*) 
End (*quad*). 


Figure B-2. Listing of Example Program QUAD 


The variables declared for procedure RANDM include a packed record DOUBLEWORD. This 
record consists of a variant part that may be accessed as any of six bytes; as an array of 

10 hexadecimal digits; as either of two integers; or as a real number. The tag field that selects 
one of these variants is neither declared nor used in the program; however, the record is 
accessed in each of these ways. For example, the first and second lines of the compound 
statement of the WITH statement contain assignment statements that assign values to the 
record as integer type values. The third and fourth lines are assignment statements that assign 
values to the record as bytes. Next is a WHILE statement that accesses the record as hexa- 
decimal digits. Finally, the record is moved to the parameter X as a real number. 


The main program GENERATE calls procedure RANSET to set the random number generator 
seed to Zero, and calls procedure RANDM to generate a real random number. Procedure 
RANDM calls procedure IRANDOM to obtain random integers. RANDM moves the eight most 
significant bits of the resulting value to the least significant end of the number and places 
the exponent 4016 in the most significant byte. Next, RANDM normalizes the number as a 
real number, moving the leading zeros, if any, and correcting the exponent appropriately. 
The result is a real random number, assigned to global variable X. 
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PROGRAM RANDM; 

(*AUTHOR: *) 

(*THIS PROGRAM DECLARES TWO PROCEDURES THAT MAY BE USED TO GENERATE *) 
(*INTEGER RANDOM NUMBERS *) 


CONST 

RANMULTIPLIER = 7829; RANADDEND = 13849; 
COMMON 

RANSEED : INTEGER; 


PROCEDURE RANSET(I: INTEGER); 
ACCESS RANSEED; 
BEGIN 

RANSEED := I 


D; 


PROCEDURE IRANDOM(VAR I: INTEGER); 
ACCESS RANSEED; 


BEGIN 
I := RANMULTIPLIER*RANSEED+RANADDEND ; 
RANSEED := I 

END; 


- BEGIN (*RANDM*) 


(*$NO OBJECT*) 


END (*RANDM*) . 


Figure B-3. Listing of Example Program RANDOM 
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PROGRAM GENERATE; 

(*AUTHOR: *) 

(*THIS PROGRAM MAKES USE OF THE TWO PROCEDURES FOR GENERATING INTEGER*) 
(*RANDOM NUMBERS TO GENERATE A REAL RANDOM NUMBER IN THE RANGE 0 to 1*) 
VAR X : REAL; 


PROCEDURE RANSET(I: INTEGER); EXTERNAL; 
PROCEDURE IRANDOM(VAR I: INTEGER); EXTERNAL; 
PROCEDURE RANDM(VAR X: REAL); 

VAR 


I: INTEGER; 
DOUBLEWORD: PACKED RECORD 
CASE INTEGER OF 
O: (EXPONENT ,BYTE] ,BYTE2 ,BYTE3,BYTE4, BYTES: 0. .#FF); 
1: (HEXDIGIT: PACKED ARRAY[O. .9] OF 0. . #F), 
2: (MSW, LSW: INTEGER); 
3: (R: REAL) 
END (* DOUBLEWORD *); 
BEGIN (* RANDM *) 
WITH DOUBLEWORD DO 
BEGIN 
ITRANDOM(I); MSW 
IRANDOM(I); LSW 
BYTE4 := EXPONENT; (* SAVE THIS BYTE FOR LATER USE *) 
EXPONENT := #40; | (*FUTURE VALUE OF EXPONENT*) 
WHILE HEXDIGIT[2] = 0 DO 
BEGIN (*NORMALIZATION*) 
FOR I := 2 TO 8 DO HEXDIGIT[I] := HEXDIGIT[I+1]; 
HEXDIGIT[9] := 0; 
EXPONENT := EXPONENT - 1 
END; (*NORMAL IZATION*) 
X := R; (* X IS THE RESULT *) 
END (*WITH*) 
END (*RANDM*) ; 


4 


wou 


BEGIN (*GENERATE*) 
RANSET (0); 
RANDM( X) ; 

END (*GENERATE*). 


Figure B-4. Listing of Example Program GENERATE 
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APPENDIX C 


System Dependent Information for TAXO 


C.1 Introduction 


This appendix describes the implementation of the types of files available to Pascal tasks 
under TAXO. The appendix also describes device I/O provided by TAXO. Finally, this appendix 
shows the runtime code sizes required for Pascal features, 


C.2 Files for Pascal Programs 


At the Pascal source level there are three basic file types: sequential files, textfiles, and ran- 
dom files. The characteristics of these files as provided by TAXO are described in subsequent 
paragraphs. 


The logical file name used in the file access procedures of a Pascal program is implemented 
as a synonym to TAXO file management, The user assigns a value to the synonym which 

is the pathname of the file. When the user does not assign a value to a synonym, the runtime 
system assigns a pathname derived from the logical file name. The pathname begins with 

a period, meaning that the file cataloged in the volume directory of the system disk. It consists 
of the characters of the logical file name (when the logical file name consists of fewer than 
seven characters) or the first six characters of the logical file name, followed by the numeric 
characters of the user's station number. For example, if neither OUTPUT nor INPUT were 
assigned values and the station number were STO3, the default pathnames would be: 


-OUTPUTO3 
eINPUTO3 


The message file SYSMSG used by procedure MESSAGE is an exception. When no file is 
assigned or when the file cannot be opened for any reason, the diagnostic message is written 
to a file with the access name consisting of .SYSMSG followed by the digits of the station 
number, If the station number were ST03, the access name would be; 


-SYSMSGO3 


When a Pascal task is written and linked for accessing |/O using LUNOs, a LUNO must be 
associated with every file. When the user does not specify a LUNO, the ASCII code for the 
first letter of the file name is the LUNO, by default. This results in LUNOs in the range of 4116 
through 5A16 and 2446 (for file names that start with $). Predeclared files have predefined 
LUNOs as follows: 


- 3C 16 for SYSMSG 
‘a 3D 46 for INPUT 
e 3E 146 for OUTPUT 


C.2.1_ Sequential Files 


When a file is declared as a sequential file in a Pascal program, the file has the following 
characteristics: 


C/2 
- Sequential file with logical record length equal to or greater than the element length. 
- When opened for input (RESET procedure) has read-only access, 
2 When opened for output (REWRITE or EXTEND procedure) has exclusive write access. 


A file element is the type declared for the file. Typically it would be a record but may be 
any data type except FILE, POINTER, or ARRAY or RECORD containing a FILE or POINTER 
type. When the file is created automatically, the logical record length is equal to the element 
length. When the user creates the file, the logical record length may not be less than the 
element length. 


When the file is created automatically, it is not blank suppressed. Input and output operations 
are blank adjusted and transfer as many bytes as the element size, 
C.2.2 Textfiles 


When a file is declared as a textfile in a Pascal program, the file has the following character- 
istics: 


* Sequential file. 
° When opened for input (RESET procedure) has read-only access, 
° When open for output (REWRITE or EXTEND procedure) has exclusive write access, 


When a textfile is created automatically the logical record length is 80 characters and the 
file is blank suppressed. When the user creates the file, the logical record length specified 
becomes the maximum line length and determines the point at which end-of-line occurs, 
Input and output operations transfer variable length records, with trailing blanks deleted. 


C.2.3 Random Files 


When a file is declared as a random file in a Pascal program, the file has the following 
characteristics: 


- Relative record file with logical record length equal to or greater than the element 
length. 

° When opened by a RESET procedure, has read-only access, 

2 When opened by a REWRITE procedure, has exclusive all access. 

2 When opened by an EXTEND procedure, has shared access, 


A tile element is the type declared for the file. Typically it would be a record but may be 

any data type except FILE, POINTER, or ARRAY, or RECORD containing a FILE or POINTER 
type. When a random file is created automatically, the logical record length is equal to the 
element length. When the user creates the file, the logical record length may not be less than 
the element length. 


When the file is created automatically it is not blank suppressed, Input and output operations 
tranfer as many bytes as the file element size. 
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The standard function EOF may be called for random files and permits the user to detect 

the end-of-file record maintained by TAXO. This end-of-file record indicates the highest 
numbered record written to the file and is detected when the end-of-file record is read or 
when an attempt to read a higher-numbered record is made. Function EOF must follow a 
READ attempt. The function result does not indicate whether any records have actually been 
written. 


C.3_ Device I/O 


When the access name supplied for an input or output operation is a device name, the oper- 
ation transfers data to or from that device. The logical record length is 80 characters for the 
following devices: 


® ASR teleprinter 

e ASR keyboard 

° Cassette 

© Card reader 

S Video display terminal 
° Dummy device 


The logical record length for a line printer is two less than the logical record length returned 
for the printer by TAXO. 


A line feed and carriage return sequence is sent before each line during a write operation 
to the ASR teleprinter, VDT, or line printer, and during a read operation from the keyboard 
of an ASR or VDT. This makes is unnecessary to echo characters read from these devices. 


Pascal software includes an SCI procedure LPWIDTH to set the maximum paper width for 

a line printer. The paper width set by LPWIDTH applies to all |/O to the printer from a Pascal 
program and to SCI procedures CC and PF as well. When the user enters the procedure name 
LPWIDTH, TAXO requests the following information: 


LINE PRINTER NAME 
PAPER WIDTH 


The name is a TAXO device name; e.g., LP01. The paper width is an integer, the number 
of characters per line, and has a default value of 80. The procedure adds two to the value 
entered to allow for the line feed and carriage return. 


C.4 Runtime Sizes 


The runtime sizes shown in the descriptions of runtime options in Section XIV are minimum 
sizes. Table C-1 lists additional features and the amount of additional code they require. 


Table C-1. Runtime Size Required for Additional Features 


Feature 
Input/Output 
plus: 


For sequential or textfiles 
For sequential files 
For random files 


For textfiles 
plus: 


For CHAR and string 

For INTEGER conversions 
For hexadecimal integers 
For LONGINT conversions 
For REAL conversions 

For FIXED conversions 

For DECIMAL conversions 
For BOOLEAN conversions 


For SKIPFILES 
For SETMEMBER 


plus: 


For miscellaneous |/O library 
procedures 


REAL arithmetic, single precision 
plus: 

For double precision 
Mathematical functions, single 
precision 

plus: 

For double precision also 


Mathematical functions, double 
precision only 


LONGINT arithmetic 
FIXED arithmetic 
DECIMAL arithmetic 
Type conversions 
SET operations 


Default Heap manager (NEW and 
DISPOSE) 


C/4 


Size (Bytes) 


4350* 


640* 
480 
670 
900* 
2190* 
1570* 
1640 
1720 
4600 
4480 
2320 
1650 


890 
440 


0 to 330 
2340 


1370 


1750 to 3630 


2440 to 4850 


2440 to 4850 
0 to 460 

Q to 1770 
1870 to 2070 
0 to 2760 


0 to 260 


160* 
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Table C-1 Runtime Size Required for Additional Features (Continued) 


Feature Size (Bytes) 


Heap manager with space recovery 


(NEW and DISPOSE) 430* 
ASSERT checks 210 (Note 1) 
Optional runtime checks 1310 (Note 2) 
CASE label checks 350 (Note 3) 
FORTRAN linkage 410 (Note 4) 
Overlays 160 

PACK 590 

UNPACK 860 


Procedure linkage (per static 
nesting level) 42 


Notes: *included in the minimum .TIP.OBJ and .TIP.LUNOBJ 


1. ASSERT checks require only 40 bytes in addition to the minimum for .TIP.MINOBJ. 
2. Optional runtime checks require only 230 bytes in addition to the minimum for 
-TIP.MINOBJ. 
3. CASE label checks require only 70 bytes in addition to the minimum for 
- TIP. MINOBJ. 
4. 


Includes only the additional bytes from the Pascal runtime library. The size of the 


specified FORTRAN subroutine or function and the FORTRAN runtime routines it uses 
must be added, also. 
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APPENDIX D 


Pascal Syntax 


D.1 General 


Throughout the manual Pascal syntax is defined using BNF productions and syntax diagrams. 
This appendix summarizes the BNF productions and the syntax diagrams used to define the 
language. 


D.2 Pascal BNF Productions 


The BNF productions that define the Pascal language syntax and appear throughout the manual 
are summarized in this paragraph. The productions are arranged in appropriate categories. 


D.2.1_ Pascal Program Snytax 


The BNF productions that define the syntax of a Pascal program are: 


<program> = <program heading> <block>. 
<program heading> = PROGRAM <program identifier>; 
<program identifier> = <identifier> 

<block> = <declarations><compound statement> 
<declarations> = <label declaration part> 


<constant declaration part> 

<type declaration part> 

<variable declaration part> 

<common declaration part> 

<access declaration part> 

<procedure and function declaration part> 


<label declaration part> = LABEL <integer constant> 
, <integer constant>}; 
|<empty> 

<empty> = 


<constant declaration part> 


CONST <constant declaration> 
; <constant declaration>}; 


| <empty> 
<constant declaration> = <identifier> = <constant expression> 
<type declaration part> = TYPE <type declaration> 

; <type declaration>}; 

|<empty> 
<type declaration> = <identifier> = <type> 
<variable declaration part> = VAR <variable declaration> 

{ ; <variable declaration>} ; 

|<empty> 


<variable declaration> 


<common delcaration part> 


<access declaration part> 


<access declaration> 


<identifier list> 
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= <identifier list>:<type> 

= COMMON <variable declaration> 
{ ; <variable declaration>}; 
| <empty> 


z= ACCESS <access declaration>; | 
|<empty> | 


= <identifier list> 
= <identifier> { <identifier> } 


<procedure and function declaration part> 


:= <procedure or function declaration> 
; <procedure or function declaration>} ; 
|<empty> 


<procedure or function declaration> ::= <procedure declaration> 


<procedure declaration> 


<procedure heading> 


<parameter list> 


<any parameter> 


<parameter> 


<partype> 


<dynamic parameter type> 


|<function declaration> 


= <procedure heading> <block> 
|<procedure heading> FORWARD 
|<procedure heading> EXTERNAL <linkage> 


= PROCEDURE <identifier>; 
|PROCEDURE <identifier><parameter list>; | 


= ((<any parameter> { ; <any parameter>} ]) 


= <parameter> | 
PROCEDURE <identifier> 
[({[VAR] <type specification> 
nB [VAR] <type specification> | ])] | 
NCTION <identifier> 
{({[VAR] <type specification> 
{; [VAR] <specification>} ])] : 
<type specification> 


= <adentifier list> : <partype> 
| VAR <identifier list> : <partype> 


= <type specification> | 
<dynamic parameter type> 


= [PACKED] ARRAY “{” <parameter index> 
|, <parameter index> { “]” OF | 
<type specification> | 
[PACKED] SET OF 
<dynamic parameter index type> 
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<type specification> := INTEGER|LONGINT|CHAR|BOOLEAN| 
REAL[(<integer constant>) ] | 
FIXED(<integer constant>, 
[<sign>] <integer constant>) | 
DECIMAL(<integer constant>, 
[<sign>] <integer constant>) | 
<type identifier> 


<parameter index> = <subrange type> | <type identifier> 
| <dynamic parameter index type> 

<dynamic parameter index type> = <manifest constant>. . ? 

<linkage> = PASCAL|FORTRAN|REENTRANT FORTRAN 
| <empty> 

<function declaration> = <function heading> <block> | 


<function heading> FORWARD | 
<function heading> EXTERNAL <linkage> 


<function heading> = FUNCTION <identifier> [<parameter list>}: 
<result type>; 


<result type> = <type identifier> 


D.2.2_ Pascal Type Syntax 


The BNF productions that define the syntax for type definition are: 


<type> = <simple type>|<structured type> 


<simple type> ::= <enumeration type> 
|<type identifier> 
|REAL[(<integer constant>)] 
| FIXED(<integer constant>, 
[<sign>}<integer constant>) 
| DECIMAL(<integer constant>, 
[<sign>]<integer constant>) 


<type identifier> = <identifier> 

<enumeration type> = INTEGER|LONGINT|BOOLEAN|CHAR| 
<scalar type>|<subrange type> 

<scalar type> = (<scalar identifier> | . <scalar identifier> } ) 

<subrange type> ‘= <manifest constant>..<manifest constant> 
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<manifest constant> ::= <enumeration constant> | 
<integer constant expression> 


<enumeration constant> := <character constant> 
|<Boolean constant> 
|<scalar identifier> 
|<integer constant> 


<scalar identifier> = <identifier> 
<structured type> = [PACKED] <unpacked structure type> 
|<pointer type>|<file type> 
<unpacked structured type> = <array type>|<record type> 
|<set type> 
<array type> = ARRAY ‘<index type> {, <index type>} ‘]’ 
OF <component type> 
<index type> = <static index type>|<dynamic index type> 
<static index type> = <enumeration type> | <type identifier> 
<dynamic index type> = <manifest constant>..<dynamic upper bound> 
<dynamic upper bound> = <entire variable> 


| UB(< dynamic array variable> 
[, <manifest constant>]) 


<entire variable> = <variable identifier> 

<variable identifier> = <identifier> 

<dynamic array variable> = <identifier> 

<component type> = <type> 

<record type> = RECORD <field list> END 

<field list> = <fixed part>|<fixed part>;<variant part> 
|<variant part> 

<fixed part> = <record section> | :<record section>} 

<record section> ::= [<field indentifier> { <field identifier>} 
: <type>] 

<field identifier> = <identifier> 

<variant part> = CASE <tagfield><type identifier> OF 


<variant> } ;<variant>} 
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<tagfield> = [<identifier>: ] 
<variant> = [<case label list>: (<field list>)] 
<case label list> = <case label> {, <case label>} 
<case label> = <manifest constant> 

|<manifest constant>..<manifest constant> 
<set type> := SET OF <base type> 
<base type> = <static base type> | <dynamic base type> 
<static base type> == <enumeration type> | <type identifier> 
<dynamic base type> := <manifest constant>..<dynamic bound> 
<dynamic bound> = <entire variable> 

|UB( <dynamic set variable>) 
<dynamic set variable> = <identifier> 
<pointer type> = @<type identifier> 
<file type> = [RANDOM] FILE OF <type> | TEXT 


D.2.3_ Pascal Statement Syntax 


The BNF productions that define the syntax for Pascal statements are: 


<statement> = [<statement label>:] <simple statement> 
| [statement label>:] [<escape label>:] 
<structured statement> 
<compound statement> = BEGIN <statement> | ;<statement> |} END 
<statement label> = <integer constant> 
<simple statement> = <empty statement> | 


<assignment statement> | 
<procedure statement> | 
<escape statement> | 
<goto statement> | 
<assert statement> 


<empty statement> 


<empty> 


<assignment statement> 


<variable> := <expression> 


<procedure statement> = <procedure identifier> 
[([<actual parameter> 
{, <actual parameter>} ])] 


<procedure identifier> 


<actual parameter> 


<escape statement> 


<escape label> 

<goto statement> 
<statement label> 
<assert statement> 


<structured statement> 


<conditional statement> 


<if statement> 


<case statement> 


<case element> 


<case label list> 


<case label> 
<repetitive statement> 
<for statement> 


<control] variable> 


<generator> 
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= <identifier> 


= <expression> | <variable> | 
<procedure identifier> | 


= ESCAPE <escape label> | 
ESCAPE <procedure identifier> | 
ESCAPE <program identifier> 


<function identifier> 


= <identifier> 


= GOTO <statement label> 


= <af statement> | <case statement> 


= IF <expression> THEN <statement> 


== CASE <expression> OF <case element> 
[ OTHERWISE <statement> } ;<statement> |} ] END 


= <case label list> : <statement> | 


= <case labeL> { , <case label> } 


= <for statement> | <while statement> | 


= FOR <control variable> <generator> 


<digit> | <digit>} 
ASSERT <expression> 


<compound statement> | 
<conditiona] statement> | 


<repetitive statement> | 
<with statement> 


[ELSE <statement>] 


; <case element> 


<empty> 


<manifest constant> | 


<manifest constant>..<manifest constant> 


<repeat statement> 


DO <statement> 
<identifier> 


IN <set expression> | 


:=<initial value> TO <final value> | 
:=<initial value> DOWNTO <final value> 
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<set expression> = <expression> 
<initial value> = <expression> 
<final value> = <expression> 
<while statement> = WHILE <expression> DO <statement> 


<repeat statement> 


REPEAT <statement> { ; <statement>} 
UNTIL <expression> 


<with statement> = WITH <with variable list> DO 
<qualified statement> 

<with variable list> := <with variable> { , <with variable>} 

<with variable> = <record variable> | 


<identifier> = <record variable> 


<qualified statement> = <statement> 


D.2.4 Pascal Expression Syntax 


The BNF productions that define the syntax for Pascal expressions are: 


<expression> = <Boolean term> | 
<expression> OR <Boolean term> 


<Boolean term> = <Boolean factor> | 
<Boolean term> AND <Boolean factor> 


<Boolean factor> = <Boolean primary> | 
NOT <Boolean primary> 


<Boolean primary> = <simple expression> | <Boolean primary> 
<relational operator> <simple expression> 


<relational operator> 


<simple expression> 2= <term> | 
<adding operator> <term> | 
<simple expression> <adding operator> <term> 


<adding operator> a 
} ws 


<term> = <factor> | 
<term> <multiplying operator> <factor> 


<multiplying operator> 


<factor> 


<function identifier> 
<set> 


<element list> 


<element> 


<empty> 


<unsigned constant> 


<constant identifier> 


<scalar identifier> 
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| DIV 
| MOD 


= ( <expression> ) | 
| <function identifier> [( [ <expression> 
{ ,<expression>} })] 

| <set> 


| <unsigned constant> 
| <variable> 


= <identifier> 
= “[" <element list> “]” 


n= <element> , <element> 
| <empty> 


= <expression> 
| <expression> .. <Cexpression> 


<constant identifier> 

| <Boolean constant> 

| <scalar identifier> 

| NIL 

| <character constant> 

| <string constant> 

| <integer constant> 

| <real constant> 

| <fixed-point constant> 
| <decimal constant> 


= <identifier> 


= <identifier> 


The BNF productions that define the syntax for Pascal variables are: 


<variable> 


<entire variable> 
<variable identifier> 


<component variable> 


= <entire variable> 
| <component variable> 
| <type-transferred variable> 


<variable identifier> 


<identifier> 


= <indexed variable> 
| <field designator> 
| <referenced variable> 
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<indexed variable> = 


<array variable> “[” <expression> 
{, <expression> } “J” 


<array variable> = <variable> 

<field designator> :== <record variable> . <field identifier> 
<record variable> = <variable> 

<field identifier> = <identifier> 

<referenced variable> = <pointer variable> @ 

<pointer variable> = <variable> 

<type-transferred variable> = <variable> :: <type identifier> 

<type identifier> = <identifier> 


D.2.6 Pascal Constant Expression Syntax 


The BNF productions that define the syntax for Pascal constant expressions are: 


<constant expression> = <constant term> 


| <adding operator> <constant term> 
| <constant expression> <adding operator> <constant term> 


<adding operator> s=+|- 


<constant term> = <constant factor> 
| <constant term> <multiplying operator> <constant factor> 


<multiplying operator> :=*|/ | DIV| MOD 


<constant factor> = (<constant expression> ) 
| <unsigned constant> 


<unsigned constant> = <constant identifier> 
| <Boolean constant> 
| <scalar identifier> 
| NIL 
| <character constant> 
| <string constant> 
_ | <integer constant> 
| <real constant> 
| <fixed-point constant> 
| <decimal! constant> 


<constant identifier> = <identifier> 


<scalar identifier> = <identifier> 
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D.2.7_ Pascal Inteoer Constant Expression Syntax 


The BNF productions that define the syntax for Pascal integer constant expressions are: 


<integer constant expression> = <integer constant term> 
| <adding operator><integer constant term> | 
| <integer constant expression><adding operator><integer constant term> 


<adding operator> smecf | « 


<integer constant term> = <integer constant factor> 
| <integer constant term> <intmult operator> <integer constant factor> 


<intmult operator> * | DIV | MOD 


( <integer constant expression> ) 
| <integer constant identifier> 
| <integer constant> 


<integer constant factor> 


<integer constant identifier> = <identifier> 


D.2.8 Pascal Language Element Syntax 


The BNF productions that define the syntax for the language elements of Pascal are: 


<symbol> = <special symbol> 
| <keyword symbol> 
| <identifier> | 
| <constant> 
<constant> == <enumeration constant> 


| <real constant> 
| <string constant> 
| <fixed-point constant> 
| <decimal constant> 
| <constant identifier> 


<separator> = <space> 
| <end of the logical source record> 
| <comment> 
| <remark> 
<comment> = <open comment> <any sequence of graphic 


characters not containing <close comment> > 
<close comment> | 


<open comment> ae Maal 
<close comment> oa“ } =} 
<remark> = “ <any sequence of graphic characters extending to 


the end of the logical source record> 


<special symbol> r= +[-/"1/1=I<I> IDL. EI@1? 
he Ol ed | ee 


{|<udip>} <usip> =:: 


<4019BJ 3eRIsSO<susip> [<usis>] | 

<1019B} eI >F<Susip> [<uais>] | 

<AOey 3RISSO<SUTIPS <susip> [<usis>] | 

<A019B} IBIS S>F<SuTipS <susip>S[<cuTis>] | 
<SUsIPS © <sudip> [<usdis>] = 


[4] | <usipxay> <UsIpxsy>dy¥ | 


(q] | <udip> | <udip> =: 


dlaldlolalvl<usip> =: 


<9d1Adp JO waisds 1B[NdIWIed eB UO 


aqeteae 9}9e1eYD Ja4yjI0 AUe> =:: 


| ICI“ l#al.! . ot 

IOUELT TMD I< >I /Lel-]+ 
<asjoeieyo piepueisuou > | 
<aoeds> | 
<UsIp> | 
<19113[> | 


<Aajoereyo jeioeds> —:: 


<UBIPKXIYS<UsIpKxsy># | 


<daieieys sydeis> =: 


: { <UdIDeIBYI> | CIBOBIBYOS<IdIOBIBYO> , 


. <AajoB1BYO> , :: 


aNUL | aSTWsa =: 


6ISIZI9ISIPlElZI110 


SIZIAIXIMIAINILISIWIOldlol 
NINITMNIClHIOlalalalolalv = 


| <asip>|—|<sz9net> } <ssna> =: 


HLIMIFZTIHMIYVAITILNA Ad ALISZNUL! 
OL|INFHLILXSL! LaS| Lvadaul Tvay!auoogy! 
WOGNV4U!IWNVeDOUd | TUNAGIIOUd |GIAOVd| LAdLNO! 
ASIMUFHLO!YO!|4O!ILONITIN|IGOW!|LNIDNO1T39 9 V1! 
YFIOALNI|LAdNIINI/AIIOLOO| NOLLONNA| YO | 

G4axXI1d FS !/FSTV4ldIdVOSa!ANd|FSTAIOLNMOC|! 
Od!AICGITWWIOAG|NONWOO!LSNOO!YVHOIFSvV)! 


NVI 1004 NID | LYASSV|AVUUV|GNV|SSAOOV=": 


LL/a 


<sudip> 


<1UPISUOD [BII> 


<lueIsUOd 1939)UI> 


<usipxey> 


<i31e1eyd piepueisuou > 


<o0eds> 


<isjoeieyo jeisads> 


<isjoeieyo aydei3s> 


<19}0e1BYd> 
<lueisuod Zutis> 
<JUPISUOD 19}9B1BYS> 


<UeIsuOd. uBI]00g> 


<usip> 


<i93n2[> 


<saynuapr> 


<joquids piomAoy> 


YTIOV-HdANIL th 


3/Z860/)09S2d 
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<scale factor> = <digits> 
| <sign><digits> 
<sign> = +|- 
<fixed-point constant> = <digits>F 
| <digits>.<digits>F 


| <binary digits>B 
| <binary digits>.<binary digits>B 


<binary digits> “= <binary digit>{ <binary digit>} 
<binary digit> = 01 
<decimal constant> = <digits>.<digits>D 

| <digits>D 


D.3_ Pascal Syntax Diagrams 


The syntax diagrams that appear throughout the manual to define the Pascal language are 
summarized in this paragraph. The arrangement of syntax diagrams parallels that of the BNF 
productions in the preceding paragraphs. 


D.3.1_ Pascal Program 


The syntax diagrams that define the syntax of a Pascal program are: 


Program: 


= © o 
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STATEMENT 
LABEL 


d IDENTIFIER } ; TYPE 7 | 


. TYPE si IDENTIFIER ea a 


ACCESS 


COMMON IDENTIFIER 


ROU TINE DECLARATION 


i STATEMENT - 


Gite 
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Routine declaration: 


PARAMETER TYPE 


EXTERNAL 


PASCAL 
--aie 
FORTRAN 


REENTRANT 
FORTRAN 
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Parameter list: 


PARAMETER 


PROCEDURE 


IDENTIFIER 


Salil TYPE SPEC, 


fel TYPE SPEC. j 


Parameter: 


IDENTIFIER 
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Dynamic parameter type: 


PACKED 


Parameter index: 


MANIFEST CONSTANT 
TYPE 
IDENTIFIER 
MANIFEST CONSTANT 
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D.3.2_ Pascal Type 
The syntax diagrams that define the syntax for type definition are: 


Type: 


TYPE 
SPECIFICATION 


i PACKED ; 


ARRAY 
RECORD 
TYPE 
SET 
TYPE 
TYPE 
IDENTIFIER 
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Type specification: 


LO! 


BOOLEAN 


BEAN CONST 


INTEGER 
CONSTANT 


Array type: 


estas 
CONS TANT 
ARRAY 


Dynamic upper bound: 
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Record type: 


Fixed part: 


Variant part: 


VARIANT 


Variant: 


- y MANIFEST 7 
CONSTANT 


MANIFEST 
CONSTANT 
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Set type: 
ENUMERATION 
- TYPE | 
MANIFEST TYPE 
CONSTANT IDENTIFIER 


File type: 


D/21 


D.3.3 Pascal Statement 


The syntax diagrams that define the syntax for Pascal statements are: 


1 /09B2/e 


a 


Statement: 


ASSIGNMENT 
STATEMENT 


PROCE DURE 
STATEMENT 
ESCAPE 
STATEMENT 
STATEMENT 
ASSERT 
STATEMENT 
fe IDENTIFIER ps 


REPEAT 
STATEMENT 


WHILE 
STATEMENT 
WITH 
STATEMENT 
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; STATEMENT 


Compound statement: 


Assignment statement: 


ESCAPE statement: ww 


GOTO statement: 


TEMENT 


IF statement: 


STATEMENT 


CASE statement: —) 


CASE 
ELEMENT 
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CASE element: 


P— Oa. 
CONSTANT & STATEMENT 


FOR statement: 


STATEMENT 


WHILE statement: 


wad) nme 0D 


REPEAT statement: 


REPEAT 


WITH statement: 


EXPRESSION 


STATEMENT 
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D.3.4 Pascal Expression 


The syntax diagrams that define the syntax for Pascal expressions are: 


Expression: 


- 7 SOOLEAN ¥ 
% @ FACTOR s 


BOOLEAN 
PRIMARY 


Boolean primary: 


SIMPLE 
EXPRESSION 


SIMPLE 
EXPRESSION 


Simple expression: 


| 


fe 


é 
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FACTOR OO @ € 


UNSIGNED 
CONSTANT 


Term: 


FACTOR 


Factor: 


VARIABLE 
FUNCTION 
IDENTIFIER 


& EXPRESSION 


7 L a. nose th) 
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Unsigned constant: 


CONSTANT IDENTIFIER 


REAL CONSTANT 
INTEGER CONSTANT 


ee ae CHARACTER “ om 


DECIMAL CONSTANT 
FIXED POINT CONSTANT 


D.3.5 Pascal Variable 
The syntax diagram that defines the syntax for a Pascal variable is: 


Variable: 


VARIABLE 
IDENTIFIER 


ARRAY 
VARIABLE 


RECORD 


FIELD 
VARIABLE IDENTIFIER 


POINTER 
VARIABLE 


TYPE 
IDENTIFIER 
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D.3.6 Pascal Language Element 


The syntax diagrams that define the syntax for Pascal language elements are: 


- LETTER - 


Identifier: 


LETTER 


Real constant: 


DIGITS 
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Error Messages 
E.1 Compiler Error Messages 


This paragraph lists the error messages issued by the Pascal compiler. The error number is 

shown, followed by a letter and the error message text. The letter is either W, E, or F. - 

A warning message is identified by a W; an E identifies a message describing an error that 

the compiler may be able to correct; an F identifies a message describing a fata! error. The 
messages are: 


ERROR IN SIMPLE TYPE 


EXPRESSION OR *.)’ EXPECTED 
‘. *» OR *)" EXPECTED 


1E 
2 E IDENTIFIER EXPECTED 
3 E ‘PROGRAM’ EXPECTED 
4 E ‘)’ EXPECTED 
27 E& *% EXPECTED 
6 E ILLEGAL SYMBOL 
7 E PARAMETER EXPECTED 
8 E ‘OF’ EXPECTED 
9 E ‘C- EXPECTED 
10 E ERROR IN TYPE 
11 E “.? EXPECTED 
12 E ‘.)’ EXPECTED 
13 E ‘END’ EXPECTED 
14 E ‘;; EXPECTED 
1S E INTEGER EXPECTED 
16 E ‘=’ EXPECTED 
17 E ‘BEGIN’ EXPECTED 
18 E ERROR IN DECLARATION SECTION 
19 E ERROR IN FIELD LIST 
20 E ‘,, EXPECTED 
2E '‘..” EXPECTED 
23 E *,” EXPECTED 
24 E ‘;’ NOT ALLOWED 
40 E ILLEGAL PARAMETER TYPE — TYPE IDENTIFIER EXPECTED 
42 E STATEMENT TERMINATOR EXPECTED 
43 E STATEMENT EXPECTED 
45 W ‘EXTERNAL FORTRAN’ EXPECTED 
49 E ‘ARRAY’ EXPECTED 
50 E CONSTANT EXPECTED 
51 E ‘=’ EXPECTED 
52 E ‘THEN’ EXPECTED 
53 E ‘UNTIL’ EXPECTED 
54 E ‘DO’ EXPECTED 
55 E ‘TO’ / ‘DOWNTO’ EXPECTED 
>. E ‘FILE’ EXPECTED 
58 E ERROR IN FACTOR 
60 E ‘CHAR’ EXPECTED 
61 E UNARY ‘+’ / ‘*-’ NOT ALLOWED IN TERM, OR ‘NOT’ IN BOOLEAN 
PRIMARY 
E 
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*, OR *)’ EXPECTED 

USE ‘DIV’ FOR INTEGER ‘/° 

TYPE IDENTIFIER EXPECTED 

ILLEGAL PARAMETER TYPE — SHOULD BE EITHER A TYPE 
IDENTIFIER OR A DYNAMIC PARAMETER WITH A ‘?’ UPPER BOUND 
PROGRAM PARAMETERS NOT IMPLEMENTED 

OPTION IDENTIFIER EXPECTED 

ILLEGAL OPTION IDENTIFIER 

PROGRAM SENSITIVE OPTION MAY NOT BE CONTROLLED HERE 
STATEMENT SENSITIVE OPTION MAY NOT BE CONTROLLED HERE 
NULL BODY EXPECTED 

IDENTIFIER DECLARED TWICE 

LOWER BOUND EXCEEDS UPPER BOUND 

IDENTIFIER IS NOT OF APPROPRIATE CLASS 

UNDECLARED IDENTIFIER 

CLASS OF IDENTIFIER IS NOT VARIABLE 

INCOMPATIBLE SUBRANGE TYPES 

FILE NOT ALLOWED HERE 

TYPE OF IDENTIFIER MUST BE ARRAY OR SET 

TAGFIELD MUST BE SCALAR OR SUBRANGE 

RECORD VARIANT CONSTANT INCOMPATIBLE WITH TAGFIELD TYPE 
UNSATISFIED FORWARD REFERENCE TO A TYPE IDENTIFIER OF A 
POINTER 

‘’ EXPECTED (PARAMETER LIST NOT ALLOWED) 

FUNCTION RESULT MUST BE SCALAR, SUBRANGE, OR POINTER 
FILE VALUE PARAMETER NOT ALLOWED 

‘ EXPECTED (FUNCTION RESULT NOT ALLOWED) 

FUNCTION RESULT EXPECTED 

IMPROPER NUMBER OF PARAMETERS 

TYPE OF ACTUAL PARAMETER DOES NOT MATCH FORMAL 
PARAMETER 

PARAMETER INCOMPATIBLE WITH PREVIOUS PARAMETER 
(DYNAMIC ARGUMENT) 

TYPE CONFLICT OF OPERANDS IN AN EXPRESSION 

EXPRESSION IS NOT OF SET TYPE 

INTEGER OPERANDS CONVERTED TO REAL FOR ‘/’ 

BASE TYPE OF SET IS LONG INTEGER 

LONG INTEGER ELEMENT IN SET 

ILLEGAL TYPE OF OPERANDS 

TYPE OF EXPRESSION MUST BE BOOLEAN 

SET ELEMENT TYPE MUST BE SOME ENUMERATION TYPE 

SET ELEMENT TYPE NOT COMPATIBLE 

TYPE OF VARIABLE IS NOT ARRAY 

INDEX TYPE IS NOT COMPATIBLE WITH DECLARATION 

TYPE OF VARIABLE IS NOT RECORD 

TYPE OF VARIABLE IS NOT POINTER 

TYPE OF VARIABLE IS NOT FUNCTION 

INCOMPATIBLE “FOR” EXPRESSIONS 

TYPE CONFLICT IN ASSIGNMENT 

ASSIGNMENT OF FILE NOT ALLOWED 

LABEL TYPE INCOMPATIABLE WITH CASE SELECTOR 

SET BOUNDS OUT OF RANGE 

INDEX TYPE MAY NOT BE INTEGER 

ONLY ASSIGNMENT TO LOCAL FUNCTION ALLOWED 


| 


Pascal/0982/e 


Th TRIUMPH-ADLER 


AMMMMMMI MIMI yT Mm MMMM ABINNSseseM MenIMIMM AMIN M sh ies) emnnnm 


E/3 


ASSIGNMENT TO FORMAL FUNCTION IS NOT ALLOWED 

NO SUCH FIELD IN THIS RECORD 

ACTUAL PARAMETER MUST BE A VARIABLE 

CANNOT ASSIGN TO “FOR” CONTROL VARIABLE 

MULTIDEFINED CASE LABEL 

PROCEDURE OR FUNCTION ALREADY DECLARED AT A PREVIOUS 
LEVEL 

PROCEDURE OR FUNCTION AGAIN DECLARED FORWARD OR 
EXTERNAL 

MULTIDEFINED LABEL 

UNDECLARED LABEL 

UNDEFINED LABEL 

PROCEDURE PARAMETERS NOT ALLOWED FOR FUNCTIONS 
ERROR IN FIXED PRECISION 

ERROR IN DECIMAL PRECISION 

ERROR IN FIXED OR DECIMAL SCALE FACTOR 

EXPRESSION OPERANDS ARE NOT COMPATIBLE 

STATEMENT TO BE ESCAPED MUST BE A STRUCTURED STATEMENT 
ESCAPING BROTHERS PROCEDURES NOT ALLOWED 

CANNOT “GOTO” INTO A “FOR” OR “WITH” STATEMENT 

“FOR” EXPRESSION MUST BE OF SOME ENUMERATION TYPE 
“CASE” EXPRESSION MUST BE OF SOME ENUMERATION TYPE 
IMPLICIT “FOR” IDENTIFIER ALREADY DECLARED 

RECORD VARIANT LABEL MUST BE NONNEGATIVE AND LESS THAN 
“SETMAX” 

MULTIDEFINED VARIANT LABEL 

SHOULD NOT USE TYPE TRANSFER IN FUNCTION 

SHOULD NOT USE “LOCATION” IN FUNCTION 

SHOULD NOT ASSIGN THROUGH LOCAL POINTER IN FUNCTION 
CANNOT CALL A PROCEDURE FROM A FUNCTION 

CANNOT CALL AN EXTERNAL FUNCTION FROM A FUNCTION 
CANNOT ASSIGN TO A GLOBAL VARIABLE, A REFERENCE 
PARAMETER, OR THROUGH A GLOBAL POINTER IN A FUNCTION 
ACCESS TO GLOBAL VARIABLE NOT DECLARED 

FILE ELEMENT MUST NOT BE FILE, POINTER, OR CONTAIN POINTERS 
TYPE OF COMMON MAY NOT BE A FILE 

DYNAMiC ARRAYS OR SETS NOT ALLOWED IN FILES, RECORDS, OR 
COMMONS 

ACTUAL REFERENCE PARAMETER CANNOT BE “PACKED” OR “FOR” 
IDENTIFIER 

ILLEGAL TYPE TRANSFER 

FRACTION EXPECTED 

STRING CONSTANT TOO LONG OR CROSSES A CARD BOUNDARY 
INTEGER CONSTANT TOO LARGE 

BINARY DIGIT EXPECTED 

EXPONENT EXPECTED 

HEXADECIMAL DIGIT EXPECTED 

ILLEGAL LONG INTEGER CONSTANT 

FIELD WIDTH MUST BE OF TYPE INTEGER OR LONGINT 

FRACTION LENGTH MUST BE OF TYPE INTEGER OR LONGINT 

HEX FORMAT ALLOWED ONLY FOR TYPE INTEGER OR LONGINT 
BINARY FORMAT ALLOWED ONLY FOR FIXED TYPE 
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F-FORMAT ALLOWED FOR REAL, DECIMAL, OR FIXED ONLY 
RANDOM FILE RECORD NUMBER MUST BE OF TYPE INTEGER OR 
LONGINT 

READ/WRITE PARAMETER NOT COMPATIBLE WITH FILE TYPE 
GLOBAL REFERENCE PARAMETER NOT ALLOWED IN FUNCTION 
READ/WRITE OF A GLOBAL FILE IN A FUNCTION 

PARAMETER MUST BE OF TYPE FILE 

PARAMETER MUST BE OF TYPE INTEGER OR LONGINT 
INCORRECT NUMBER OF PARAMETERS IN STANDARD PROCEDURE 
CALL 

INCORRECT NUMBER OF PARAMETERS IN STANDARD FUNCTION 
CALL 

PARAMETER MUST BE OF TYPE POINTER 

PARAMETER MUST BE NON-NEGATIVE INTEGER CONSTANT 
PARAMETER MUST BE A CONSTANT 

MISSING CORRESPONDING VARIANT DECLARATION 

PARAMETER MUST BE A CONSTANT OR A VARIABLE 
MANIPULATION OF GLOBAL FILE NOT ALLOWED IN FUNCTION 
ILLEGAL TYPE OF PARAMETER IN STANDARD FUNCTION CALL 
ILLEGAL TYPE OF PARAMETER IN STANDARD PROCEDURE CALL 
PARAMETER MUST BE AN INTEGER OR LONGINT CONSTANT 
ACTUAL PARAMETER HAS WRONG STRING LENGTH 
MANIPULATION OF FILE “INPUT”/“OUTPUT” NOT RECOMMENDED 
DIMENSIONALITY OF ARRAY SMALLER THAN SPECIFIED CONSTANT 
ARRAY COMPONENT TYPES ARE NOT COMPATIBLE | 
ARGUMENT MUST BE PACKED ARRAY 

ARGUMENT MUST BE NON-PACKED ARRAY | 
FILE ARGUMENT IS THE WRONG FILE KIND | 
MAXIMUM REAL PRECISION EXCEEDED | 
ARRAY TOO LONG — MORE THAN 32767 BYTES 

RUN-TIME COMPATIBILITY CHECK REQUIRED 

DYNAMIC UPPER BOUND MUST BE GLOBAL VARIABLE OR 
PARAMETER 

TOO MANY NESTED SCOPES 

IMPROPER PARAMETER TYPE FOR ACTUAL PROCEDURE 
PARAMETER 

MISMATCHED REFERENCE PARAMETER FOR ACTUAL PROCEDURE 
PARAMETER 

VARIABLE PARAMETER EXPECTED FOR ACTUAL PROCEDURE 
PARAMETER 

IMPROPER NUMBER OF PARAMETERS FOR ACTUAL PROCEDURE 
TOO MANY IDENTIFIERS DECLARED 

FORTRAN ARRAY AND RECORD VALUE PARAMETERS WILL BE 
PASSED BY REFERENCE 

FORTRAN PROCEDURE AND FUNCTION PARAMETERS NOT ALLOWED 
DYNAMIC ACTUAL PARAMETER WILL BE PASSED BY REFERENCE TO 
FORTRAN 

DIVISION BY ZERO 

SCALAR “SUCC” OR “PRED” RESULT OUT OF BOUNDS 

INDEX EXPRESSION OUT OF BOUNDS 

VALUE TO BE ASSIGNED IS OUT OF BOUNDS 

SET ELEMENT EXPRESSION IS OUT OF BOUNDS 
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E.2 Runtime Error Messages 


The Pascal runtime library routines write error messages on the SYSMSG file and the OUTPUT 
file. Some of the I/O error messages include the two-digit status code returned by TAXO. 


These codes are listed in the Error Reporting and Recovery Manual. The I/O status codes 
more commonly returned are: 


Code Explanation: 

01 Unassigned logical unit number 

06 Device timeout or abort 

OF Another program has exclusive access to device 
1A Disk unit write protected 

21 Invalid device or volume name 

27 Specified file name does not exist 

3B Another program has exclusive access to file 
43 Magnetic tape unit is offline 

44 Write to tape with no write ring 

72 Attempt to open a directory or program file 
Al Directory is full 

EO Disk volume is full 


Some error conditions result in a brief message on the SYSMSG file and a more detailed expla- 
nation on the OUTPUT file. The following list of messages includes the messages that are 
placed on the OUTPUT file; abbreviations of these messages appear on the SYSMSG file. 


Some error messages specify a statement number, which is the line number within the body 
of the routine. The routine name is shown in the memory dump (paragraph 14.7.4); a source 


listing written with option WIDELIST in effect lists the line numbers in the second column from 
the left (figure 9-1). 


The runtime error messages are as follows: 


2nd ERROR 


An error condition was detected while processing a previously detected error condition. 
Execution is terminated immediately. This will occur when the OUTPUT file cannot be opened; 


failure of the attempt to open the OUTPUT file to write the memory dump causes this message 
to be written. 


ADDRESSING ERROR 
The program has attempted to access a memory location outside the memory region of the 
program. Two common causes are: 


e Accessing an array with an invalid index value, 


e Invalid value in a pointer variable. 


"ASSERT" FAILED 


The value of the expression in the ASSERT statement on the line number specified in the 
OUTPUT file is FALSE. 
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ATTEMPT TO SKIP BEYOND EOM 


An attempt has been made to skip beyond the end-of-medium (EOM) in a call to procedure 
SKIPFILES. Correct the program to prevent the call. When EOF is true following execution 
of SKIPFILES, the file is at EOM and no further call to SKIPFILES should be made. 

ATTEMPT TO READ PAST EOF 


The program has attempted to read from a file that is positioned at EOF, The program should 
test for end-of-file by calling function EOF. If it is desired to read a file that follows the EOF 
of the same medium, call procedure SKIPFILES to position the file at the beginning of the 
next file. 


CANNOT LOAD OVERLAY 


The library routine OVLY$ has received an error status code from the operating system when 
attempting a load overlay operation (supervisor call code 1446). 


CANNOT GET MEMORY 

Memory required for the program plus the memory requested for stack and heap exceeds 
the amount of available memory. Try to execute the program with smaller stack and heap 
values. 


"CASE" ALTERNATIVE ERROR 


The selector expression of a CASE statement has a value that is not equal to any of the CASE 
labels, and there is no OTHERWISE clause. The OUTPUT file message includes the statement 
number and the selector value. 


CODE = PC = STACK: HEAP; | 
A program using the minimal runtime library has terminated, The code value is one of the | 
error codes listed in paragraph E.3. Tne PC value is the contents of the Program Counter | 
when the error occurred, or zero for normal termination, The stack and heap values are hexa- 
decimal numbers of bytes of stack and heap, respectively, used by the program. 
DIVIDE BY ZERO 
An integer or fixed-point division was attempted with a divisor of zero. 


DYNAMIC ARRAY SIZE OUT OF RANGE 


The value of the size of a dynamic array was either zero or negative when the routine that 
contains the array was entered. 


ERROR CODE = 


An error has occurred, The value is one of the error codes listed in paragraph E.3, 
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ESCAPE-FROM-ROUTINE ERROR 


An ESCAPE statement that references a routine name has been executed but the statement 
is not within the scope of the named routine, or the routine was not compiled with the 
TRACEBACK option on. 

FATAL COMPILATION ERRORS 


An attempt to execute a routine that has fatal compilation errors has been made; the name 
of the routine follows this message. 


FIELD EXCEEDS RECORD SIZE 


The field specified for a formatted READ from or WRITE to a textfile is longer than the logical 
record length of the file. 


FIELD WIDTH TOO LARGE 


A parameter of a call to a WRITE procedure has a field length longer than the logical record 
length of the file. 


FILE ACCESS NAME 


An 1/O error occurred on the file the name of which follows the word FILE. The access name, 
if known, or the word UNKNOWN, follows the words ACCESS NAME, A message describing 
the nature of the problem follows. 


FLOATING POINT ERROR - ILLEGAL INSTRUCTION 


The floating point interpreter did not recognize the code of a floating point instruction. Either 
CODEGEN wrote bad object code or the program code area has been modified, possibly by 
storing data at the wrong location. The OUTPUT file contains the bad instruction and the 
address following the instruction, See table E-1. 


FLOATING POINT ERROR - DIVISION BY ZERO 
The divisor of a division operation of REAL numbers was zero, 


FLOATING POINT ERROR - OVERFLOW 


A floating point operation has resulted in a value that is too large to be represented 
(magnitude greater than 1075). The OUTPUT file contains the instruction that produced the 
error and the address following the instruction. Table E-1 lists the instruction codes, 


FLOATING POINT ERROR - RELINK FOR EXTENDED PRECISION 


The runtime routines for double precision REAL values were not linked with a program that 


attempts to perform double precision REAL operations, Add the following to the link control 
file: 


INCLUDE (FLSITD) 
INCLUDE (TENSD) 
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Table E-1. Floating Point Instruction Values 


Single Precision 


Instruction 


ocoo 
0co2 
0C04 
0C06 
0C40-0C7F 
0C80-0CBF 
OCCO-OCFF 
0D00-0D3F 
0D40-0D7F 
0D80-0DBF 
ODCO-ODFF 


FTN ARGUMENT ERROR 


Double Precision 
Instruction 


0CO1 
0CQ3 
0CcO05 
0C07 
OE 40-0E7F 
OE80-OEBF 
OECO-OEFF 
OFO0-OF 3F 
OF 40-OF7F 
OF80-OFBF 
OFCO-OFFF 


Operation 


Convert REAL to INTEGER 
Negate 

Convert REAL to LONGINT 
Convert LONGINT to REAL 
Add 

Convert INTEGER to REAL 
Subtract 

Multiply 

Divide 

Load 

Store 


A FORTRAN subroutine or function has been called with the wrong number of arguments, 


FLN FLOATING POINT ERROR 


A floating-point arithmetic error has occurred while executing a FORTRAN routine. The error 
may be overflow, divide by zero, illegal instruction, or double precision routines required. 


FTN STACK OVERFLOW 


Insufficient stack space remained for a call to a reentrant FORTRAN routine in the program. 


HALT CALLED 


Execution has been terminated by a call to the library routine HALT, which may be either 
in the user's program or in a runtime library routine. When a library routine calls HALT, a 
message that gives the reason for the HALT is also written. The additional message either 
precedes this message on the SYSMSG file or is written on the OUTPUT file. 


HEAP FULL 


The specified amount of heap space for executing the program is inadequate, Execute the 
program again with a larger amount of heap space, 


1/0 ERROR: NAME= 


An 1/O error has occurred. Two numbers follow the words I/O ERROR, The first of these 
is a reason code, one of the following: 


0 Open error. 
4 Read error. 
5 


Attempt to read past EOF, or attempt to skip beyond EOM, or file or device 
not opened for reading. 
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6 Write error. 
yf Not opened for writing. 


The reason code is followed by the status code returned by the operating system. The status 
code has significance when the reason code is 0, 4, or 6. Refer to the partial list of status 
codes at the beginning of this paragraph, or to the complete list referenced there, A reason 
code of 0 and a status code of 00 is a special case that means open error - element size 
greater than record length. The NAME shown is the name of the file. 


ILLEGAL OPCODE 


The program attempted to execute a machine instruction that is illegal. This may be the result 
of storing data in the program area or of executing a program having unresolved references 


in the linking operation. 
ILLEGAL SUPERVISOR CALL 


The program either executed a supervisor call that referenced an invalid supervisor call code 
or execute an XOP instruction for an undefined extended operation. The first byte of the 
area referenced by a supervisor call as the supervisor call block is interpreted as the super- 
visor call code. The second operand of an XOP instruction specifies the extended operation. 
This error may be the result of storing data in the program area, 


ILLEGAL TILINE ADDRESS 


The operating system has terminated the program with a task error code 3, indicating that 
an illegal TILINE address has been detected. This is either the address of a non-existent memory 
or of a non-existent device. 


INCOMPLETE DATA 


A READ operation of a textfile obtained a value that is syntactically incomplete. For example, 
the value 1.0E for a REAL number is incomplete. Correct the data in the file and execute 
the program again. 


INVALID CHARACTER IN FIELD 


A READ operation of a textfile obtained a character that is invalid for the specified data type. 
For example, a decimal point (.) is invalid in an integer value. 


INVALID LENGTH OF PACKET 


The DISPOSE routine has been called with a pointer operand that does not obtain the address 
of a valid heap packet. 


INVALID PACKET POINTER 


The DISPOSE routine has been called with a pointer operand that does not contain the address 
of a valid heap packet. 


INVALID RELEASE POINTER 


The RELEASE routine has been called with a parameter that is not within the allocated portion 
of the current heap region. 
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MATH PACK ERROR -- ARGUMENT TOO LARGE IN 


The value of the parameter of a call to the SIN, COS, or EXP function is too large. The name 
of the called function follows the word IN. For the SIN and COS the absolute value of the 
operand must be less than 2°95. 

MATH PACK ERROR --~ DIVISION BY ZERO IN 


A floating-point divide error has occurred in one of the mathematica! functions. The name 
of the divide routine follows the word IN. The name of the function that called the divide 
routine appears in the abnormal termination dump. 

MATH PACK ERROR -—~ NEGATIVE ARGUMENT JN 


The square root or logarithm function has been called with a paramenter value jess than zero. 
The name of the function follows the word IN; 


MATH PACK ERROR -- OVERFLOW IN LNS 
The library function LN has been called with an operand that is too large. 
MEMORY PARITY 


The program has been terminated because the operating system was interrupted by a memory 
parity error interrupt. A memory parity error is a hardware malfunction. 


NORMAL TERMINATION 
The execution of the program has terminated without errors at the end of the main program. 
NOT OPENED FOR READING 


A READ operation was attempted on 4a file that has not been opened for reading. Execute 
a RESET operation on the file before reading, or either a RESET or EXTEND operation if the 
file is a RANDOM file. 


NOT OPENED FOR WRITING 


A WRITE operation was attempted on a file that has not been opened for writing. A REWRITE 
or EXTEND operation must precede a WRITE operation on a file. 


OPEN ERROR - ELEMENT SIZE GREATER THAN RECORD LENGTH 


The logical record length specified when the file was created is not large enough for the file 
element size specified in the program. Either create the file again with a logical record length 
at least as long as the file element size, or delete the file and allow the system to create 

the file automatically. 


OPEN ERROR - STATUS = __ 
The operating system has returned the status code shown in the message at the return form 


an attempt to open a file. Refer to the partial list of status codes at the beginning of ths 
paragraph or to the complete list referenced there. 
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OVERFLOW 


An arithmetic operation of INTEGER, FIXED, or DECIMAL type operands has resulted in an 


overflow. Normally this message is written only if the CKOVER compiler option applied when 
the code was compiled. 


PARAMETER OUT OF RANGE 


An I/O utility routine has been called with an invalid argument value. For example, a field 
width specification which is not greater than zero will produce this error. 


PRECISION CHECK FAILURE 


An arithmetic operation of FIXED or DECIMAL type operands has occurred resulting in the 


loss of one or more most significant digits. This message appears only when the CKPREC 
compiler option applied when the code was compiled. 


PRIVILEGED INSTRUCTION 


The program area contains a privileged machine instruction. Pascal programs execute in the 
nonprivileged mode. This error may be the result of storing data in the program area. 


READ ERROR - STATUS = __ 


A READ operation failed and the operating system returned the status code shown, Refer 


to the partial list of status code at the beginning of this paragraph, or to the complete list 
referenced there. 


READ PAST END OF FILE 


A READ operation has been attempted on a textfile that is positioned at end-of-file. The 
program should use function EOF to test for end-of-file. When blank line precede end-of- 
file, procedure READLN should be called to read the blank line, followed by a call to function 
EOLN. When EOLN is false following a READLN operation, call EOF to test for end-of-file. 


RUN-TIME COMPATIBILITY CHECK: INDEX 


The length of a dynamic array is not compatible with the valid length requirements of the 
array type. Change the value of the variable that becomes the value of the upper bound. 


RUN-TIME COMPATIBILITY CHECK: LONGINT INDEX 


The length of a dynamic array which is indexed by an index that is a subrange of LONGINT 
type is not compatible with the valid length requirements of the array type. Change the value 
of the variable that becomes the value of the upper bound. 


RUN-TIME COMPATIBILITY CHECK: SET BOUND 


The size of a dynamic set is not compatible with the valid length requirements of the set type. 
Change the value of the variable that becomes the value of the upper bound. 
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RUN-TIME ERROR: INDEX 


An array index was set te a value outside the range specified for the array. This message 
only occurrs when the CKINDEX compiler option applied when the code was compiled. 


RUN-TIME ERROR: LONGINT CASE ALTERNATIVE 


The value of the selector expression of a CASE statement is not equal to any of the case 
labels; the OTHERWISE ciause was omitted; and the type of the selector expression is 
LONGINT. 


RUN-TIME ERROR: LONGINT INDEX 


An array index that is a subrange of LONGINT was set to a value outside of the range specified 
for the array. This message only occurs when the CKINDEX compiler option applied when 
the code was compiled. 


RUN-TIME ERROR: LONGINT SUBRANGE 


A variable or field of type subrange of LONGINT was set to a value outside of the subrange. 
This message only occurs when the CKSUB compiler option applied when the code was com- 
piled. 


RUN-TIME ERROR: NIL POINTER 


The program has attempted to use a pointer variable that has a value of NIL. This message 
only occurs when the CKPTR compiler option applied when the code was compiled. 


RUN-TIME ERROR: RECORD VARIABLE 


A reference to the variant portion of a record is inconsistent with the current value of the 
tag field. This message only occurs when the CKTAG compiler option applied when the code 
was compiled. 


RUN-TIME ERROR: SCALAR BOUND 


A scalar value outside the defined range has been generated. This message only occurs why 
the CKSUB compiler option applied when the code was generated. Executing function PRED 
for the smallest value in the range or function SUCC for the largest vajue in the range causes 
this error. 


RUN-TIME ERROR: SET BOUND 


A set element that is not within the range of the base type of the set was specified. This 
message only occurs when the CKSET compiler option applied when the code was com- 
piled. 


RUN-TIME ERROR: SUBRANGE 
A variable or field of subrange or scalar type has been assigned a value outside of the sub- 


range. This message only occurs when the CKSUB compiler option applied when the code 
was compiled, 
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STACK OVERFLOW 


The specified amount of stack space has been used, and the program requests additional 
stack space. Execute the program again, requesting a larger amount of stack space. Another 
cause of this error is a recursive routine that continues to call itself indefinitely. Additional 
stack space only postpones the error in this case; a limit must be placed on the recursion 

by correcting the program. 


STACK USED = HEAP USED = 


This message follows the normal termination message, indicating the number of bytes of stack 
and heap space used. Values are decimal numbers. 


TASK ERROR- 


Execution of the program has been terminated by an error detected by the operating system. 
A two-digit hexadecimal number is shown, which is the task error code teturned by the opera- 
ting system. Consult the appropriate operating system manual for the interpretation. 


TASK KILLED 


Execution of the task has been manually terminated with an SCI command (kill Task or Kill 
Background Task). 


TCA ACCESS ERROR 


One of the routines that use the SC] Terminal Communications Area has made an unsuccess- 
ful attempt to access the Terminal Communications Area. 


TEXT FILE 1/O ERROR: NAME = 


An error occurred during format conversion of a value being read from or written to a text- 
file. One of the messages defined in this section follows the word ERROR; the name of the 
file follows the word NAME, 


VALUE TOO LARGE 


A:READ operation of a textfile obtained a value too large to be represented as the type - 
specified. For example, 33000 is too large to be represented as an INTEGER type variable. 
Either correct the value in the file being read or change the type specification to a type 
compatible with the file. 


WRITE ERROR = STATUS = __ 


A WRITE operation failed and the operating system returned the status code shown. Refer 
to the partial list of status codes at the beginning of this paragraph or to the complete list 
referenced there. 
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E.3 Runtime Error Codes 


The error codes listed in this paragraph are placed in the completion code field of the process 
record (bytes 3C1¢ and 3D46), with the character P replaced by a zero. The three numerals 
to the right of the P are hexadecimal numerals. The codes as shown are printed in the termin- 
ation messages and in the optional abnormal termination dump when the minimal runtime 

code is linked with the task. The recovery procedures for the error messages listed in para- 
graph E.2 apply to the corresponding error code listed in this paragraph. Most error codes 

are followed by the corresponding error message in capital letters. Those error codes that 

do not correspond with an error message are followed by explanatory text. 


P000 
P100 
P101 
P102 
P103 
P104 
P105 
P106 
P107 
P1xx 


P201 
P202 
P203 
P300 
P301 
P302 
P303 
P304 
P305 
P306 
P365 
P366 
P400 
P40! 
P402 
P403 
P404 
P42! 
P422 
P423 
P424 
P425 
P426 
P427 
P440 
P44] 
P442 
P443 
P460 
P46! 
P463 
P464 
P465 
P48 1 
P482 
P483 


NORMAL TERMINATION 

TASK KILLED (TX990) 

MEMORY PARITY 

ILLEGAL OPCODE 

ILLEGAL TILINE ADDRESS 

ILLEGAL SUPERVISOR CALL 

ADDRESSING ERROR 

PRIVILEGED INSTRUCTION 

TASK KILLED (DX10) 

TASK ERROR xx 

STACK OVERFLOW (on entry to a routine) 

STACK OVERFLOW (on allocation of a dynamic array) 
STACK OVERFLOW (detected by CKTOP$) 

HALT CALLED 

HEAP FULL 

DIVIDE BY ZERO (integer or fixed-point) 

FTN ARGUMENT ERROR (wrong number of arguments) 
FTN STACK OVERFLOW 

DYNAMIC ARRAY SIZE OUT OF RANGE 

FTN FLOATING POINT ERROR 

INVALID PACKET POINTER 

INVALID LENGTH OF PACKET 

CANNOT GET MEMORY 

Program linked for DX10 was executed memory resident 
2ND ERROR (error during error recovery) 

Process exited with a return instead of a resume 

ESCAPE — FROM — ROUTINE ERROR 


TEXT FILE 1/O ERROR: PARAMETER OUT OF RANGE 


TEXT FILE 1/O ERROR: FIELD WIDTH TOO LARGE 
TEXT FILE 1/O ERROR: INCOMPLETE DATA 


TEXT FILE I/O ERROR: INVALID CHARACTER IN FIELD 


TEXT FILE 1/O ERROR: VALUE TOO LARGE 
TEXT FILE 1/O ERROR: READ PAST END OF FILE 


TEXT FILE 1/O ERROR: FIELD EXCEEDS RECORD SIZE 
FLOATING POINT ERROR — ILLEGAL INSTRUCTION 


FLOATING POINT ERROR — DIVISION BY ZERO 
FLOATING POINT ERROR — OVERFLOW 


FLOATING POINT ERROR — RELINK FOR EXTENDED PRECISION 


MATH PACK ERROR — ARGUMENT TOO LARGE 
MATH PACK ERROR — NEGATIVE ARGUMENT 


MATH PACK ERROR — WRONG NUMBER OF ARGUMENTS 


MATH PACK ERROR — OVERFLOW 

MATH PACK ERROR — DIVISION BY ZERO 
ATTEMPT TO READ PAST EOF 

ATTEMPT TO SKIP BEYOND EOM 

NOT OPENED FOR READING 
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P4A1 RUN-TIME COMPATIBILITY CHECK: INDEX 

P4A2 RUN-TIME COMPATIBILITY CHECK: LONGINT INDEX 

P4A3 RUN-TIME COMPATIBILITY CHECK: SET BOUND 

P4Bl RUN-TIME ERROR: INDEX 

P4B2 RUN-TIME ERROR: LONGINT INDEX 

P4B3 RUN-TIME ERROR: SUBRANGE 

P4B4 RUN-TIME ERROR: LONGINT SUBRANGE 

P4B5 RUN-TIME ERROR: SCALAR BOUND 

P4B6 RUN-TIME ERROR: LONGINT SCALAR BOUND 

P4B8 RUN-TIME ERROR: LONGINT CASE ALTERNATIVE 

P4B9 RUN-TIME ERROR: SET BOUND 

P4BA RUN-TIME ERROR: NIL POINTER 

P4BB RUN-TIME ERROR: RECORD VARIABLE 

P4CO0 “CASE” ALTERNATIVE ERROR 

P4C3 OVERFLOW 

P4C7 PRECISION CHECK FAILURE 

P4CA “ASSERT” FAILED 

P4CF FATAL COMPILATION ERRORS 

P500 OPEN ERROR — ELEMENT SIZE > RECORD LENGTH (on a RESET) 

P5xx OPEN ERROR — STATUS = xx (on a RESET) 

P600 OPEN ERROR — ELEMENT SIZE > RECORD LENGTH (REWRITE or 
EXTEND) 

P6xx OPEN ERROR — STATUS = xx (REWRITE or EXTEND) 

P7xx READ ERROR — STATUS = xx 

P800 NOT OPENED FOR WRITING 

P8xx WRITE ERROR — STATUS = xx 

P9xx CANNOT LOAD OVERLAY (System error code = xx) 

POFF INVALID OVERLAY NUMBER 


E,4 Debug Command Error Messages 
The Pascal debug commands of SCI write the following error messages: 
DO1F - TOO MANY PROCESS RECORDS, 


The Pascal task consists of more than 100 processes, Either the task is not a Pascal task 
or task memory has been altered. 


D020 - INVALID BREAKPOINT LOCATION, 
The string entered in response to the WHERE prompt is unrecognizable. 


D021 - INVALID STACK FRAME, 


Either the address of the bottom of the stack frame is not less than the address of the top 
of the stack frame or the address of the top of the stack frame is not equal to the address 
of the bottom of the next stack frame. This message results if an SPS or LPS command is 
issued before the task has been initialized (immediately following the execution of XPT 
specifying the debug mode). To recover from this condition, assign a breakpoint and enter 
an RT command, then enter the SPS or LPS command, Other causes of this error are when 
a Pascal debug command is entered for a task that is not a Pascal task, or when task 
memory has been altered, 
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D022 ~ INVALID PROCESS RECORD. 


Either the process record cannot be found ar the structure of the process record is incorrect. 
Either the task is not a Pascal task or task memory has been altered. 


D023 - INVALID ROUTINE NAME, 


The routine name entered in the command cannot be found. Either the routine does not exist 
or the routine was compiled with the Traceback option off, or the routine is in an overlay 
which is not currently in memory. 


DO24 - NONSTANDARD OR FORTRAN FRAME. 
The stack frame at the top of the stack is for a nonstandard or FORTRAN routine. The Pascal 


debug commands require the stack frame to be that of a Pascal routine or an assembly lang- 
uage routine with standard interface. 
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APPENDIX F 


Assembly Language Routines 


F.1 General 


A user may write a procedure or function in assembly language. The procedure or function 
must comply with the following requirements: 


9 Format the routine in a manner compatible with the Pascal compiler and runtime system. 


: Specify the static nesting level of the routine. 


= Call the appropriate entry handler for the routine. 


° Declare the routine as external in the appropriate declaration section of the calling 


program. 


The format of the routine involves both the format of the data for the routine in the stack 
frame of the routine and the format of the routine itself. The format also varies depending 

on the category of the routine. The runtime system categorizes routines in three categories 
according to the degree of complexity of the routine. The runtime system includes a separate 
handler for each category. The more complex routines require a more complex handler; less 
complex routines may use a simpler handler that requires less time to execute. 


This appendix describes the static nesting level and its relation to the routine, and the cate- 
gories of routines. The appendix then describes the stack frame and finally, the routine itself. 


In some applications, the user may provide routines for program error termination. This appendix 
includes descriptions of termination routines in the Pascal libraries to illustrate the interface 
with these routines. 


F.2 Static Nesting Level 


A Pascal program consists of a main program that may declare one or more routines. Each 
routine may declare one or more routines. The main program is the static nesting level of 
one. Any or all routines declared in the main program are at static nesting level two. Any 

or all routines declared in a level two routine are static nesting level three. The general rule 
is that the static nesting level of a routine is one greater than that of the routine in which 

the routine is declared. The runtime support system supports 16 static nesting levels. The 
static nesting level must be explicity identified within a routine in order for the runtime system 
to properly interface with the routine. 


F.3 Routine Categories 


A routine that neither declares nor calls another routine and that requires no more than 64 

bytes of stack space is in the short category. A routine that does not declare another routine 
and that either calls one or more routines or requires more than 64 bytes of stack space is 

in the medium category. A routine that declares one or more routines is in the standard category. 


A routine written is assembly language does not actually declare a routine; i.e., there is no 
PROCEDURE or FUNCTION declaration in assembly language. The equivalent of declaring 


a routine in assembly language is calling a routine that has a static level number greater than 
that of the calling routine. 


The category of the routine determines the uses of registers and the entry handler that the 
routine calls. 
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F.4 The Stack Frame 


The stack frame contains the workspace for the routine, pointers stored by the entry handler, 
the result (for routines that are functions), the parameters, local variables, and compiler-generated 
temporary data. Figure F-1 shows the structure of the stack frame, 


F.4.1_ Workspace 


The workspace is the set of workspace registers (RO through R15) used by the routine. The 
entry to the routine is by a BLWP instruction which places the lowest address in the stack 
frame in the WP register, making the first 32 bytes of the stack frame the workspace, 


Fer standard category routines only registers R9 and R10 are dedicated (i.e., the contents 
of these registers must not be altered). Register R9 contains the address of the bottom of 
the stack frame (i.e., the lowest address of the stack frame of the routine). Register R10 
contains the address of the top of the stack (i.e., the word beyond the word at the highest 
address in the stack frame of the routine). Other registers may be used as desired, Register 
R12 contains the address of the process record. 


For medium category routines, in addition to the registers used for standard routines, registers 
R13 and R14 are dedicated. Register R13 contains the calling routine's workspace pointer 
and register R14 contains the return address in the calling routine. These uses of R13 and 
R14 are those uses made by the computer hardware; the entry handler does not store the 
values for restoration by the return handler. 


For short category routines register R15 is dedicated, in addition to the registers used for 
medium and standard category routines. Register R15 contains the contents of the status 
register of the computer at the time of the call to the routine. 


F.4.2 System Storage 


For four word area following the workspace in the stack frame is used by the entry handler 
for storage of return information. The use of the words differs for each category of routine. 


Before discussing the use of this area by the handler, the display pointer must be defined. 
The runtime system maintains an array labelled DISPLAY in the process record. The array 
contains the address of the stack frame of static nesting level one in the first element 
(address 2 relative to the process record address in R12). Successive elements of the array 
contain the addresses of the stack frames of the current routines at successive nesting leve... 
That is, element two of the array contains the stack frame address of the most recently called 
routine at static nesting level two, element three contains such an address for level three, 
etc. The addresses in the DISPLAY array are called display entries, The display entries enable 
a routine to access the variables in all currently active stack frames. 


Array DISPLAY contains pointers to stack frames of the most recently called routines at the 
static nesting levels. However, routines may call other routines at the same level, and also 
may call themselves (recursion). When a routine calls itself or another routine at the same 
level, dynamic nesting results. The dynamic nesting relationship are implied in the order of 
stack frames in the stack and in the information stored in the stack frames. 


The entry handler for a standard category routine stores the display entry in the first word 

of the area of the stack frame that follows the workspace (address 20716 relative te the address 
of the stack frame). The entry handler stores the WP register of the calling routine in the 
following word (address 227g), and the return address in the next word (address 2046). The 
last word in this area, address 2676 relative to the stack frame address, is reserved for tasks 
that use SCI I/O. Tasks that use LUNO I/O place the current process record address in 

address 2616. 


The entry handler for a medium category routine uses only the word at address 2446. The 
handler stores -7 in that word, identifying the stack frame as that of a medium category 
routine. The return information remains in register Ri3 and R14, which are not evailable to 
the routine. 
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RESULT/ARGS/ 


RO -— R8 
R9 


R10 


Ril 
R12 


R13 


R14 


R15 


SAVED 


CALLER 


RETADR 


PRP 
RESULT 


RESULT 


ARGS 


LOCALS 


TEMPS 


LOCALS/TEMPS 


WORKSPACE REGISTERS AVAILABLE TO ROUTINE, 
CONTAINS ADDRESS OF STACK FRAME (BOTTOM). 
CONTAINS ADDRESS OF NEXT WORD BEYOND STACK FRAME (TOP) 


WORKSPACE REGISTER, LINK TO OUT-OF-LINE ROUTINES, 


CONTAINS ADDRESS OF PROCESS RECORD, 


FOR STANDARD CATEGORY, AVAILABLE TO PRIME » 
LFOR OTHER CATEGORIES , CALLING ROUTINE WP. i] 


FOR STANDARD CATEGORY, AVAILABLE TO ROUTINE, 
LFOR OTHER CATEGORIES , RETURN ADDRESS : J 


FOR STANDARD AND MEDIUM CATEGORIES, AVAILABLE TO ROUTINE, 
FOR SHORT CATEGORY, STATUS REGISTER CONTENTS. 


FOR STANDARD CATEGORY, PREVIOUS DISPLAY ENTRY. 
FOR OTHER CATEGORIES, RESERVED, 


FOR STANDARD CATEGORY, CALLING ROUTINE WP, 
FOR OTHER CATEGORIES, RESERVED, 


FOR STANDARD CATEGORY CALLING ROUTINE PC 
FOR MEDIUM CATEGORY, FFFF 46 (1). 


FOR SHORT CATEGORY, OOOO. 


PROCESS RECORD POINTER — CONTAINS CURRENT PROCESS 
ADDRESS (LUNO 1/0), NOT USED WITH SCI 1/0, 

THE RESULT OF A FUNCTION (TYPE OTHER THAN DECIMAL), 
THE RESULT OF A FUNCTION (TYPE DECIMAL). 


THE PARAMETERS (ARGUMENTS) OF THE ROUTINE. 


LOCAL VARIABLES OF THE ROUTINE, 


TEMPORARY VARIABLES, 


Figure F-1. Stack Frame Structure 
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The entry handler for a short category routine uses only the word at address 2416. The handler 
stores zero in that word, identifying the stack frame as that of a short category routine. The 
return information remains in registers R13, R14, and R15, which are not available to the 
routine. 


F.4.3 Data 


The remainder of the stack frame is of variable length and contains the data required by the 
routine. The first area applies only to functions: the area into which the routine must place 
the result. When the type of the function result in DECIMAL, the area is ten bytes in length. 
Results of other types must be left justified in an eight byte field. 


The second area for functions (the first area for procedures) is the area for parameters or 
arguments. Parameters are passed by value or by reference in Pascal. When a parameter 
is passed by value, a copy of the parameter is placed in the stack frame immediately prior 
to the call of the routine. The parameter occupies a variable amount of space determined 
by the type of the parameter. When a parameter is passed by reference the address of the 
parameter is placed in the stack. A parameter passed by reference requires one word in the 
stack regardless of the type of the parameter. 


Two types of parameters require special additional information: parameters with dynamic 
bounds and procedure or function parameters. When a parameter with one or more dynamic 
bounds is passed by reference, the address of the parameter (array or set), the upper bound 
(or bounds, if an array has more than one dimension with a dynamic upper bound), and the 
size are placed in the stack frame. When a parameter with dynamic bounds is passed by 
value, the same information is placed in the stack frame, and a copy of the parameter is 
placed in the dynamic portion of the stack frame. This requires that the called routine extend 
the stack frame, copy the parameter into the extended stack frame, and change the address 
in the stack frame to point to the copy. 


An example of an assembly language procedure having a parameter with a dynamic bound 
is shown in figure F-2. This procedure, PSPARM, is a level 2 routine that returns a specified 
SC! parameter in array STRING. The length of array STRING is determined by the length of 
the corresponding parameter in the procedure call. The procedure calls SCI routine SSPARM 
(described in the Supervisor Calls, SCl-Command Processors and SCI Interface Routines) to 
obtain the parameter. The declaration for the procedure is shown in the first six comment 
lines, except that the keyword EXTERNAL must follow the parameter list. Note that this rou- 
tine cannot be used with programs linked with the .TIP,.LUNOBJ or .TIP.MINOBJ libraries. 


The routine uses EQU directives to define displacements for the parameters, Note that the 
first parameter, |, is in the first word of the parameter list of the stack frame. The next word 
contains the upper bound of array STRING, followed by the size of the array, and the address 
of the array. The last word of the parameter list of the stack frame contains the address of 
the third parameter, ERROR, 


When a parameter is a procedure or function, the parameter is represented in the stack frame 
by a structure that contains the entry point address of the procedure and a copy of the set 
of display pointer values that provides the correct environment for the procedure or function. 
The environment of the function or procedure passed as a parameter may be quite different 
from that of the called routine. The Pascal runtime system uses the environment of the para- 
meter routine rather than that of the calied routine. This requires that the DISPLAY array 
containing the environment of the parameter routine be copied into the stack frame. When 
the parameter routine is executed, the software saves the contents of the DISPLAY array, 
and places the copy from the stack frame into the array. Upon return from the parameter 
routine, the saved contents of the DISPLAY array are restored. 


The parameters in the stack frame are followed by the local variables for the routine. This area 
is of variable length, determined by the number of variables and the type of each variable. 
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STR wa) 


IDT °PSPARM’ 
x PROCEDURE PSPARM 
* ( I: INTEGER: { Seauvence number of desiréd parameter } 
* VAR STRING: { Buffer to hold returned Parameter } 
* PACKE!) ARRAY [0..7]) OF CHAR; 
* VAR ERROR: INTEGER { Error indicator: Nonzero imolies error } 
x ) 
* This routine provides a TIP interface to tne SCI99U0 routine SEPARY 
* The Ith parameter is fetcheo from the TCA file if 
x (1) it exists, ana 
* (2) STRING is large enough to contain ite 
* The length of the parameter is returned in STRINGIO); 
¥ STRINGL9) £50 imolies that the Ith parameter does not exist. 
* ERROR <> 0 implies that an SCl=detecteo error has occurred; 
* ERROR is the error code returned by SCI. 
s (ERROS = >9018 implies STRING too small to hold result.) 
* Note: STRING need not be preinitializea in any way. 
* 
* Register Eauates: 
BOT EWU RY Start of stack frame 
ARG FU >2e Beginning of argument list 
cd 
I EVU ARG+0 value of I 
UB EQU ARGte Uoper pound of STRING 
SIZE Egu &rRGe4 Total length of STRING 
STRING EQU AkG+6 Acdress of STRING 
ERROK FQU ARG+B Adoress of ERROR 
* 
REF ENTS$S,RETSS 
kKEF S#PARY 
*® 
| TEXT “P$Z$PARY *% 
DATA @ Level Number 
DATA Le Epiloque Code 
D&TA U1 Literals Aree 
DEF PSPARM 
PS$PARM BL at teThS 
DATA >32 Stacw Frame Size 
® Set up arguments? 
MOV aI (BOT), R1 Parameter Number 
MOV AaASTRING( ROT) Re STRING address 
MCVS aURt1 (BOT), ®R2 STRING Lenath (first myte of 
ALaP aSFPakM Call S$PARM 
6YTE &1,R2? (specify afqument locations) 
Mv @ERROK(30T) 2 R3 Get error code 
MOV r0,*#RS 
L2 b aRET$S Return to caller 
END 


Figure F-2. Assembly Language Routine Example 
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When compiling routines written in Pascal, the compiler places temporary variables in the 

stack frame following the local variables. Temporary variables are variables in which the routine 
stores intermediate results, or similar data. When writing a routine in assembler language the 
programmer may allow space in the stack frame for temporary variables by increasing the 
stack frame length appropriately and accessing the additional words as required. 


F.5 The Routine Module 


The module for the routine contains required constant information, constants and literals 
required by the routine, and the executable code for the routine. Figure F-3 shows the 
structure of the module. 


The first section of the code for the module contains constants, The first statement must be 

a TEXT directive to place the module name in the first four words of the module, Fill the oper- 
and to the right with blanks when the module name contains fewer than eight characters. 
The next statement must be a DATA directive to place the static nesting level in the next 
word. 


These constants required by the runtime support system are followed by constants and 
literals required for the routine. The directives required to define these items, if any, are 
followed by two more DATA directives. The operand of the first data directive is the label 
of the epilogue of the routine, described in a subsequent paragraph. The operand of the 
second is either the label of the TEXT directive that contains the module name, or zero, as 
described in the next paragraph. 


The constants required by the runtime support system are used in the event of an escape 

from the module. When a routine does not require any constants and an escape from the 
module cannot occur, all of the constants previously described may be omitted except for 

a sirigle DATA directive with an operand of zero, indicating that the constants section is empty. 


literals TEXT ‘ROUTINE’ 8 CHARACTER MODULE NAME 
DATA n STATIC NESTING LEVEL 


constants and literals 


DATA epilogue (ENTRY POINT - 4) 

DATA literals (ENTRY POINT - 2) 
ROUTINE EQU $ ROUTINE ENTRY POINT 

BL @ENT$n BRANCH TO ENTRY HANDLER 


DATA frame size SIZE OF STACK FRAME REQUIRED 
routine body 

epilogue EQU $ 
epilogue code 


B @RET$n BRANCH TO RETURN HANDLER 


Figure F-3. Structure of a Standard Category Routine at Level n 
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The entry point of the routine follows the constants section and must be a BL instruction 

to branch to the appropriate entry handler. The branch to the entry handler for a short cate- 
gory routine is BL G ENT$S. The branch to the entry handier for a medium category routine 

is BL @ ENTSM. The branch to the entry handler for a standard category routine is BL @ ENT$n, 
where n is the static nesting level of the routine. The BL instruction is followed by a DATA 
directive with the frame size as the operand, 


The executable code of the routine follows the DATA directive. Following the code for the 
routine is the epilogue, which performs any required termination functions and calls the return 
handler. There is a return handler for each category, corresponding to the entry handler. 

For a short category routine, the branch to the return handler is B @ RET$S, For a medium 
category routine, the branch to the return handler is B @ RETS$M. For a standard category 
routine, the branch to the return handier is B @ RET$n, where n is the static nesting level 

of the routine. 


F.5.1 Access to Variables 


A Pascal routine has access to its local variables, to variables declared in the routine in which 
that routine was declared, to those declared in the routine in which that routine was declared, 
and to those of routines active at each level back to the global variables declared in the 

main program. Access to parameters passed by value and to local variables at each level 
involves accessing the variable from the stack frame. Access to parameters passed by 
reference involves accessing the address in the stack frame and accessing the variable at 
that address. 


Tc access a parameter passed by value or a local variable, use indexed addressing. R9 contains 
the stack frame address. The following is an example of code to access a value parameter 
or a local variable: 


NUM EQU >28 DISPLACEMENT OF PARAMETER 


MOV @ NUM(R9),RO MOVE PARAMETER TO RO 


The DISPLAY array in the process record contains the stack frame addresses of all active 
stack frames. R12 contains the address of the process record upon return from the entry 
handler. If R12 has been used for other storage, the address of the process record may be 
restored in R12 as follows: 


REF CURSS$ REFERENCE ROUTINE 
BL @ CURSS$ CALL ROUTINE 
To obtain the address of the stack frame for a particular level, compute the displacement 


by multiplying the level number by two. Then use the displacement within the stack frame 
for a particular variable to access the variable. The following is an example: 


INT EQU > 30 DISPLACEMENT 
OF VARIABLE INT 

* IN LEVEL 2 STACK FRAME 

DLEV2 EQU 2*2 DISPLACEMENT 
FOR LEVEL 2 

* DISPLAY POINTER 
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MOV @ DLEV2(R12),R2 MOVE LEVEL 2 STACK FRAME 
* ADDRESS INTO R2 
MOV @ INT(R2),R3 MOVE INT TO R3 


Accessing parameters passed by reference requires accessing the address, then accessing 
the parameter at the address. The following is an example of accessing a reference parameter: 


NUM EQU >28 DISPLACEMENT OF PARAMETER 
MOV @ NUM(R9Y),R2 MOVE PARAMETER ADDRESS INTO 
* R2 
MOV *R2,RO MOVE PARAMETER TO RO 


Accessing a parameter passed by reference to a routine at another level requires accessing 
the address from the stack frame at that level, then accessing the parameter at the address, 
The following is an example: 


INT EQU > 30 DISPLACEMENT OF PARAMETER 
¥ INT IN LEVEL 2 STACK FRAME 
DLEV2 EQU 2*2 DISPLACEMNT FOR LEVEL 2 
* DISPLAY POINTER 

MOV @ DLEV2(R12),R2 MOVE LEVEL 2 STACK FRAME 
* ADDRESS INTO R2 

MOV @ INT(R2),R4 MOVE PARAMETER ADDRESS INTO 
* R4 

MOV *R4,R3 MOVE INT TO R3 


F.5.2 Calling a Routine 


Calling a routine requires making parameters, if any, available to the called routine, and trans- 
ferring control to the entry point of the called routine. Copies of value parameters must be 
moved into the stack frame of the called routine. Addresses of reference parameters must 

be placed in the stack frame of the called routine. Register R10 contains the address of the 
first word beyond the stack frame of a routine, which is to become the address of the stack 
frame of the called routine. Copies of variables or addresses of parameters may be moved 

into the stack frame of a called routine by using the displacement for the variable indexed 

by R10. The following is an example of moving a variable of a routine into the stack frame 

of the called routine: 


VAL EQU >28 DISPLACEMENT OF LOCAL 

ms VARIABLE VAL 

NUM EQU >2A DISPLACEMENT OF VALUE 

* PARAMETER FOR CALLED ROUTINE 


MOV @ VAL(R9),@ NUM(R10) MOVE COPY TO NEW STACK FRAME 
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The following is an example of moving a parameter address from a stack frame at a higher 
level to the stack frame of the called routine: 


INT EQU >30 DISPLACEMENT OF PARAMETER 
~ INT IN LEVEL 2 STACK FRAME 
DLEV2 EQU 2*2 DISPLACEMENT FOR LEVEL 2 
*% DISPLAY POINTER 
VAL EQU >28 DISPLACEMENT FOR PARAMETER 
% IN CALLED ROUTINE STACK FRAME 
MOV @ DLEV2(R12),R2 MOVE LEVEL 2 STACK FRAME 
i ADDRESS INTO R2 
MOV @ INT(R2),@.VAL(R10) MOVE PARAMETER ADDRESS TO 
* 


CALLED ROUTINE STACK FRAME 


Transfer of control to a routine is performed by a BLWP instruction, The transfer vector must be 
created at runtime because the stack frame address is determined at runtime. Register R10 


contains the stack frame address for the called routine, which is also the workspace address, 
The code to call a routine is as follows: 


TOP EQU R10 POINTER TO STACK FRAME OF 
* CALLED ROUTINE 

LI TOP+1,ROUTINE PLACE ENTRY POINT OF ROUTINE 
* IN R11 

BLWP TOP 


BRANCH TO ROUTINE 


F.6 An Alternative Method 


When it is necessary to write a routine in assembly language, the user may write a dummy 
routine in Pascal and compile the program. The dummy routine should deciare the routine 
precisely so that the stack frame is built by the compiler to provide for the parameters and 
variables required. The statement portion of the routine may approximate the processing re- 
quired for the routine, or may consist only of the BEGIN and END keywords required, The 
object module produced by the compiler may be submitted to the Reserve Assembler to list 

the assembly language corresponding to the object code. The interface with the runtime system 
is thus produced by the compiler, and the user need only add the assembly language code to 


perform the processing. The preceding paragraphs of this appendix help the user to identify 
the interface and the point at which to add executable code. 


F.7 User Termination Routines 


The user may write routines to perform error termination. The following paragraphs describe 
the Pascal library routines and show examples of the code. The termination sequence provided 
by the standard library (.TIP,.OBJ) is described in the next paragraph. Differences that exist 
when other libraries are used are described in subsequent paragraphs, 
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F.7.1 Standard Termination Routines 


When a Pascal task terminates, control passes to library routine TERM$. TERMS is a Pascal 
callable routine with the address of the process record for the terminating task as its parameter. 
TERMS is part of the initiate/terminate process, a separate process from the process for the 
user task. The parameter, the address of the task's process record, allows TERMS to access the 
contents of the WP, PC and ST registers in bytes 2216 through 27146 of the process record, 
TERMS can also access the termination code, bytes 3C 16 and 3D 46 of the process record. 


TERMS writes a message that specifies the reason for termination and calls the abnormal 
termination dump routines when appropriate. It displays the amount of stack and heap used 
and then calls PS TERM, which actually terminates execution. 


Routine P$ TERM is a Pascal callable procedure without parameters. The follewing partial 
listing of PS TERM illustrates how it accesses the termination code: 


IDT 'PS$ TERM! 
LO TEXT 'PS§ TERM! 
DATA 2 
REF ENTSS 
REF S$STOP 
REF T$CC,T$EC,T$MSG 
DATA EPI,LO 
DEF P$TERM 
P$TERM BL @ENTSS R12 t= PROCESS RECORD ADDRESS 
DATA 40 


* 


---TEST FOR NORMAL OR ABNORMAL COMPLETION--- 


MOV @>3A(R12),R8 R8 := TASK INFO. BLOCK ADDRESS 
MOV @ T$CC(R8),R1 R1:= COMPLETION CODE 
MOV @ TSEC(R8),R3 R3 := ERROR CODE 
JEQ L1 SKIP IF NORMAL TERMINATION 
ORI R1,>C000 SET $$CC TO INDICATE ABORT 
Ll EQU 
* 
* --- SET $$CC AND TERMINATE -—-- 
* 
MOV @ T$MSG(R8),R2 MESSAGE ADDRESS (CURRENTLY 0) 
EPI BLWP @ S$STOP TERMINATE ($$CC IN R1) 
END 


Routine S§SSTOP, which P$TERM calls with the value for $$CC in R1, sets the completion 
code synonym $$CC to the value in R1 and stops. 


F.7.2 Luno I/O Termination Routines 


When a Pascal task that is linked for LUNO I/O terminates, contro! passes to library routine 
TERMS as described in the preceding paragraph. The TERM$ routine is similar to the one 
previously described, It calls PSTERM to terminate execution. The version of PSTERM in 
library .TIP,LUNOBJ is much simpler than the version in library .TIP,OBJ; it only executes 
an end-of-task supervisor call. 
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F.7.3. Minimal Runtime Termination Routines 


When a Pascal task that is linked for minimal runtime terminates, control passes to library 
routine TERMS$$. TERMS$ is an assembly lanuage routine that is entered with the address 

of the process record for the terminating task in R12. R13 contains the address of a work- 
space in which R13, R14, and R15 contain the WP, PC, and ST values applicable to an error 
termination. The contents of these workspace registers are not significant for a normal termi- 
nation. The process record contains the termination code in bytes 3C46 and 3D 46. 


After writing the termination message, TERMS$$ calls PSSTOP to terminate the task. The 
following is the listing of PSSTOP: 


IDT *PSSTOP* 
DEF P$STOP 
P$STOP | R1,>400 SET OP CODE FOR END OF TASK CALL 
XOP R1,R15 SUPERVISOR CALL 
END 
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APPENDIX G 


ASCll Character Set 


The internal representation of the Pascal character set is the ASCI] code. Table G-1 lists the 
complete ASCII character set with the hexadecimal and decimal equivalents of the represen- 
tation of each character. The first 32 characters (represented by 0016 through 1F 46) are 
control characters. These characters are included because they may be specified in strings 
by the hexadecimal! representation preceded by a pound sign (#). 


Table G-1, ASCIi Character Set 


Hexadecimal Decimal Character Hexadecimal Decimal Character 
Value Value Value Value 

00 00 NUL 23 35 # 
01 01 SOH 24 36 $ 
02 02 STX 25 37 % 
03 03 ETX 26 38 & 
04 04 EOT 27 39 ‘ 
05 05 ENQ 28 40 ( 
06 06 ACK 29 4] ) 
07 07 BEL 2A 42 * 
08 08 BS 2B 43 + 
09 09 HT 2C 44 ; 
0A 10 LF 2D 45 

OB 11 VT 2E 46 

0c 12 FF 2P 47 / 
0D 13 CR 30 48 0 
OE 14 SO 3] 49 1 
OF 15 SI 32 50 2 
10 16 DLE 33 51 3 
11 17 DCI 34 §2 4 
12 18 DC2 35 53 5 
13 19 DC3 36 54 6 
14 20 DC4 37 55 7 
15 21 NAK 38 56 8 
16 22 SYN 39 57 9 
17 23 ETB 3A 58 : 
18 24 CAN 3B 59 : 
19 25 EM 3C 60 < 
1A 26 SUB 3D 61 = 
1B 27 ESC 3E 62 > 
IC 28 FS 3F 63 ? 
ID 29 GS 40 64 @ 
1E 30 RS 4] 65 A 
IF 3] US 42 66 B 
20 32 SP 43 67 Cc 
21 33 ! 44 68 D 
22 34 e 45 69 E 
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Table G-1. ASCII Character Set (Continued) 


Hexadecimal Decimal Character Hexadecimal Decimal Character 
Value Value Value Value 

46 70 F 63 99 c 
47 71 G 64 100 d 
48 72 H 65 100 e 
49 73 I 66 101 f 
4A 74 J 67 102 g 
4B 75 K 68 103 h 
4C 76 LE 69 104 i 
4D 77 M 6A 106 j 
4E 78 N 6B 107 k 
4F 79 re) 6C 108 ] 
50 80 P 6D 109 m 
51 81 Q 6E 110 n 
§2 82 R 6F 111 0 
53 83 s 70 112 p 
54 84 T 71 113 q 
55 85 U 72 114 r 
56 86 Vv 73 115 s 
57 87 Ww 74 116 t 
58 88 xX 75 117 u 
59 89 Y 76 118 ay 
5A 90 Zz 77 119 w 
5B 91 [ 78 120 x 
5C 92 \ 79 121 y 
5D 93 J 7A 122 z 
5E 94 A 7B 123 { 
5F 95 — 7C 124 | 
60 96 ™ 7D 125 } 
61 97 a TE 126 nN 
62 98 b 1F 127 DEL 
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APPENDIX _H 


Overlays in Pascal Programs 


H.1 General 


Pascal Software supports defining one or more modules of a Pascal object program as an 
overlay or overlays and loading overlays appropriately during the execution of the program. 
Specifically, the software includes a procedure for loading an overlay. The object code must 
be placed in a library of object modules as is done by CONFIG or SPLIT, The modules must 

be linked in the desired overlay structure. This appendix describes the organizing of 4 program 
into overlays, the use of the overlay procedure OVLY$S, the controi file for linking the modules 
into the desired structure, and the System Command Interpreter (SCI) commands to install 

the program. 


H.2_ Overlay Structure 


To illustrate the overlay structure that a Pascal program could have, the following tree structure 
shows a program MAIN with procedures A, A1, A2, B, B1, and B2: 


Program MAIN calls procedure A or procedure B; procedure A calls procedure A1 or procedure 
A2; and procedure B calls procedure B1 or procedure B2. The declarations for the Pascal 
program corresponding to this structure are: 


PROGRAM MAIN; 

VAR PATH:INTEGER; 

PROCEDURE A; 

PROCEDURE Al; 

BEGIN (* Al *) 
END; (* Al *) 


PROCEDURE A2: 
BEGIN (* A2 *) 
END; (* A2 *) 


H/2 


BEGIN (* A *) 
CASE PATH OF (* KIND OF PATH *) 
1: Al; 
2: A2: 
END; 
END; (* A *) 


PROCEDURE B: 
PROCEDURE Bi: 


BEGIN (* Bl *) 
END; (* BI *) 
PROCEDURE B2?; 
BEGIN (* B2 *) 
END; (* B2 *) 
BEGIN (* B *) 
CASE PATH OF (* KIND OF PATH *) 
3: Bh 
4: B2; 
END; 
END; (* B *) 
BEGIN (* MAIN *) 
CASE PATH OF 
1,2: A; 
3,4: B; 
END; 
END. (* MAIN *) 


This structure can be implemented with overlays, with program MAIN as the root, modules A 
and B as cverlays, modules A1 and A2 as overlays called in module A and modules B1 and 
B2 as overlays called in module B. The modules are assigned the fallowing overlay numbers: 


A ~ overlay 1 
B - overlay 2 
Al - overlay 3 
A2 - overlay 4 
B1 - overlay 5 
B2 - overlay 6 


This example illustrates a program having an overlay structure identical to the calling structure. 
However, the Pascal software does not require that the overlay structure coincide with the 
calling structure. For example, procedures B1 and B2 do not need to be nested within procedure 
B, but could be declared following the declaration of procedure A. 


H.3_ Procedure OVLY$ 


The overlay handler provided in the Pascal! software is procedure OVLY$. OVLY$ is called 
in the module that calls the overlay prior to the call to the procedure in the overlay. The 
procedure must be declared in the main program, as follows: 

PROCEDURE OVLYS$(LOAD:INTEGER); EXTERNAL; 


The handler must be initialized by the following call: 


OVLY$(0); 
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This call must precede any call to OVLY$ to load an overlay. The argument 0 causes the 
procedure tc initialize the handier. The arguinent is the overlay number in subsequent calls 


to OVLY$ to load an overlay. The code for the example program including appropriate calls 
to OVLYS is as follows: 


PROGRAM MAIN; 

VAR PATH:INTEGER; 

PROCEDURE OVLYS(LOAD:INTEGER); EXTERNAL; 
PROCEDURE A; 

PROCEDURE Al; 


BEGIN (* Al *) 
END; (* Al *) 
PROCEDURE A2?; 
BEGIN (* A2 *) 
END; (* A2 *) 
BEGIN (* A *) 
CASE PATH OF (* KIND OF PATH *) 
1: BEGIN 
OVLYS(3); Al; END; 
2: BEGIN 
OVLYS$(4); A2; END; 
END; 
END; 
(A *) 


PROCEDURE B; 
PROCEDURE BI; 


BEGIN (* Bl *) 
END; (* Bl *) 
PROCEDURE B2; 
BEGIN (* B2\ *) 
END; (* B2 *) 
BEGIN (* B #) 
CASE PATH OF (* KIND OF PATH *) 
3: BEGIN 
OVLYS(5); Bl; END; 
4: BEGIN 
OVLYS(6); B2; END; 
END; 
END; (* B *) 
BEGIN (* MAIN *) 
OVLYS§(0); (* INITIALIZE HANDLER *) 
CASE PATH OF 
1,2: BEGIN 
OVLY $(1); A; END; 
3,4: BEGIN 
OVLYS$(2); B; END; 
END; 
END. (* MAIN *) 


Notice that the first statement of the main program calls OVLYS to initialize the handler. When 
PATH is one, overlay 1 is loaded by a call to OVLY$ with a parameter of 1, and procedure A is 
called. In procedure A, the call to OVLYS$ loads overlay 3, and is followed by a call to procedure A1. 


Procedure OVLY$ maintains a variable that contains the number of the most recently loaded 
overlay, and compares the argument in the call with that variable. A subsequent call to load 
the most recently loaded overlay is ignored. 
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H.4 Link Control File 


The object modules must be properly linked to support the overlay structure. The object modules 
must be available as members of a library, which may be written by utility CONFIG or SPLIT. 

The following example of the coinmands to link the program in the desired overlay structure 
assumes that the modules have been cataloged as members of library .USER.OBJECT: 


LIBRARY .TIP.OBJECT 
PHASE 0,OVLYTEST 
INCLUDE (MAIN) 

INCLUDE .USER.OBJECT(MAIN) 
PHASE 1,OVERLAY1 
INCLUDE .USER.OBJECT(A) 
PHASE 2,OVERLAY3 
INCLUDE .USER.OBJECT(A1) 
PHASE 2,OVERLAY4 
INCLUDE .USER.OBJECT(A2) 
PHASE 1,OVERLAY2 
INCLUDE .USER.OBJECT(B) 
PHASE 2,OVERLAY5 
INCLUDE .USER.OBJECT(B1) 
PHASE 2,OVERLAY6 
INCLUDE .USER.OBJECT(B2) 
END 


These commands are supplied to the link editor as the control file, and the link editor writes 
the linked object to a file specified for the linked output. 


H.5 Installing The Program 


The root module and the overlay modules must be installed in the system. The following is 

an example of the batch stream of SCI commands to install the program. The example assumes 
that the linked object is on file .USER.LOBJ and that the program file on which the modules 
are written is .LUSER.OTEST. The Install Overlay commands must be in the same order as the 


PHASE commands in the link. The batch stream is as follows: ww 


BATCH 

SYN P=“.USER.OTEST” 

AGL AN=.USER.LOBJ 

DT PF=P.TN=OVLYTEST 

IT PF=P,TN=OVLYTEST,OBJ=$$LU 

10 PF=P,ON=OVERLAY1,OI=!1,OBJ=$$LU,REL=NO,ASS=OVLYTEST 
10 PF=P,ON=OVERLAY3,OI=3,OBJ=$$LU,REL=NO,ASS=OVLYTEST 
10 PF=P,ON=OVERLAY4,0OI=4,O0BJ=S$LU,REL=NO,ASS=OVLYTEST 
10 PF=P,ON=OVERLAY?,0!=2,OBJ=$$LU,REL=NO,ASS=OVLYTEST 
10 PF=P,ON=OVERLAYS,OI=5,OBJ=$$LU,REL=NO,ASS=OVLYTEST 
10 PF=P,ON=OVERLAY6,01=6,OBJ=S$$LU,REL=NO,ASS=OVLYTEST 
RGL L=@S$$LU 

EBATCH 
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H.6 Overlay Numbers 


The overlay numbers used in calls to procedure OVLY$ are assigned by the Install Overlay 
(10) commands shown in the example in paragraph H.5, 
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APPENDIX | 


Type Conversions 


1.1 Introduction 


Pascal provices a limited amount of implicit conversion of data types and a set of functions 
to perform explicit conversions. This section describes the instances in which a conversion 
is implied and the methods of converting from one type to ancther. Explicit conversions are 
performed by functions DEC, FIX, FLOAT, LINT, LROUND, LTRUNC, ROUND, and TRUNC, 
as described in paragraph A.2. In several of the conversions it is possible for a mathematical 
overflow to occur. A mathematical overflow results in an incorrect conversion, it does not 
cause an interruption of proccessing or abnormal termination of the program unless compiler 
options CKOVER (paragraph 9.5.2) and CKPREC (paragraph 9.5.3) have been specified, 


1.2 Implicit Conversions 


The Pascal compiler provides implicit conversion of data from one type to another or toa 
different precision of the same type in the following instances: 


: Assignment operations 

e Arithmetic operations 

2 Comparisons 

S 1/O operations 

eS Routine parameters passed by value 


1.2.1 Conversions In Assignment Operations 

In an assignment operation, the data represented by the identifier or expression to the right 
of the assignment operator is converted to the type and precision of the variable to the left 
of the operator. 


The following conversions are implicit: 


° INTEGER to LONGINT 

. LONGINT to INTEGER 

” INTEGER to REAL 

° LONGINT to REAL 

° REAL of one precision to REAL of another precision 

” FIXED of one precision to FIXED of another precision 

* DECIMAL of one precision to DECIMAL of another precision 
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1.2.2 Conversions In Arithmetic Operations And Comparisons 


Both operands of arithmetic operations and comparisons must either be the same type or 
must be in one of the following types that are implicitly converted to the type of the other 
operand: 


sd If one operand is INTEGER type and the other is LONGINT or REAL type, the INTEGER 
type operand is converted to the type of the other operand, 


° If oné operand is LONGINT type and the other is REAL type, the LONGINT type operand 
is converted to REAL type. 


© If the operands of a / operation are both INTEGER or LONGINT type, the operands 
are converted to REAL type. 


The type of the result of an arithmetic operation is the type of the operands after conversion 
(if required). The result of a comparison is BOOLEAN type. 


When the operands of an arithmetic operation or of a comparison are REAL, FIXED, or DECINEL, 
the precision of either operand often is converted. The following paragraphs discuss the con- 
version rules that apply. 


1.2.2.1 Precisicn Conversicn For REAL Type 


When the precisions of the operands cf REAL type differ, the operand having the smaller 
precision is converted to the larger precision. The larger precision is the precision of the result 
of arithmetic operations, 


1.2.2.2 Precision Conversion For Fixed And DECIMAL Types 


When an expressicn consists of an arithmetic operation between operands of FIXED or DECIMAL 
type, the precision and scale factor of the result is determined by the formulas shown in this 
paragraph. However, the precision and scale factor can be forced using the FIX or DEC 
function, with the desired precision and scale factor, and the expression as arguments, This 
results in optimization of the code, for example, when the operation is multiplication and the 
operands are FIXED type of 15-bit precision. 


In the formulas shown, M is a parameter representing the maximum precision supported, For 
single-word FIXED type, M is 15; for double-word FIXED type, M is 31; for DECIMAL type, 
M is 15. The following rules apply to the precisions of the operands: 


The precision of each operand is M or less. 
The precision specified for the result of function FIX or DEC is M or less, 


Additicn and Subtraction. ir: the formulas that apply to addition and subtraction, the precision P 
minus the scale factor Q of an operand is the integer precision R for that operand, Similarly, 
the precision, scale factor, and integer precision of the other operand are P', Q', and R', 
respectively. Using these values in the following formulas provides R", Q", and P", the integer 
precision scale factor, and precision ef the result. 
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When 

1 + MAX(R,R') + MAX(Q,Q') 
is less than or equal to M, the following formulas apply: 

R" = 1 + MAX(R,R') 

Q" = MAX(Q,Q') 

P" = Q" + R" 
The scale factor of the result (Q") is the larger of the two operand scale factors. The operand 
with the smaller scale factor is shifted left before the addition or subtraction is performed. 
The integer precision (R") is one greater than the larger of the two operand integer precisions 
to allow for the possibility of a carry. Overflow cannot occur. 
Otherwise, when 

1 + MAX(R,R') + MAX(Q,Q") 
is greater than M, the following formulas apply: 

R" = MAX(R,R') 

Q"=M - R" 

P"=M 
The integer precision of the result is the larger of the two operand integer precisions. A mathe- 
matical overflow can occur. The scale factor of the results is reduced as required so that 


the precision P" is equal to M. 


Multiplication. For multiplication, the operands are multiplied without shifting. The result may 
be truncated on the left if P + P' is greater than M. The formulas for Q", P" , and R" are: 


Q"=Q+Q' 

P" = MIN(M,P + P*) 

R" = P" - Q" 
For multiplication of FIXED type operands, when the sum of P + P' is less than or equal to 31, 
truncation of the result on the left may be avoided by using the FIX function. Specifically, 


the result of FIX(PP,QQ,X*Y) is not truncated when PP is less than or equal to M. 


Division. For division, the dividend of precision (P,Q) is shifted left to precision (M,Q + (M - P)) 
prior to performing the division. The formulas for P", R", and Q" of the result are: 


P"=M 
R" = R +Q' 
Q" =M-—-R" 


Other operations. For comparisons, each operand is converted as for subtraction before the 


comparison. For negation or absolute value operations, the result has the same precision 
as the operand. 
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1.2.3 Conversions In 1/O Operations 


FIXED type numbers in F format are converted on input and output. On input, a FIXED type 
number in F format is read into an intermediate value which is then converted. The precision 
and scale factor of the intermediate value are computed and the intermediate value is con- 
verted as in conversion from DECIMAL type to FIXED type (paragraph 1.6.4). If the precision 
of the intermediate value is greater than the maximum precision, significant digits may be lost. 


On output, the number is converted to an intermediate value and output in F format. The 
precision and scale factor of the intermediate value are computed and the intermediate value 
is converted as in conversion from FIXED type to DECIMAL type (paragraph |.7.4). 


1.2.4 Conversions In Routine Calis 
When an argument cf an ARCTAN, COS, EXP, LN, SIN, or SQRT or a REAL type value para- 


meter of any routine has a type other than REAL, it is converted to type REAL of default 
precision. The result has the precision of the argument, except that when the argument is 


type REAL of a specified precision less than the default, the result is of REAL type with defaun 


precision. When the argument is type REAL of a specified precision greater than the default, 
the result is type REAL with the specified precision. 


1.3 Conversion To Integer Type 


LONGINT, REAL, FIXED, and DECIMAL types may be converted to INTEGER type by the functions 


TRUNC or ROUND, or by an implicit conversion uncer the conditions given in paragraphs 


1.2.1. The methods of converting each of these types are described in the following paragraphs. 


1.3.1 From LONGINT Type 


The value of the LONGINT data is assigned to an INTEGER data item. When the magnitude 
of the value is too large to be represented as an INTEGER, a mathematical overflow occurs, 


1.3.2 From REAL Type 


The value of the integer part of the REAL data is assigned to an INTEGER data item. When 
the magnitude of the value is too large to be represented as an INTEGER, a mathematical 
overflow occurs. 


1.3.3 From FIXED Type 


The value of the FIXED data is first converted to scale factor Q = 0, and the converted value 
is assigned te an INTEGER data item. When the magnitude of the converted value is too large 
to be represenied as an INTEGER, a mathematical overflow occurs, 


1.3.4 From DECIMAL Type 


The value of the DECIMAL data is first converted to FIXED type. The value of the FIXED type 
is converted as in paragraph 1.3.3. 
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1.4 Conversion to LONGINT Type 


INTEGER, REAL, FIXED, and DECIMAL types may be converted to LONGINT type by the functions 
LINT, LROUND, or LTRUNC, or by an implicit conversion under the conditions given in para- 
graphs 1.2.1 and 1.2.2. The methods of converting each of these types are described in the 
following paragraphs. 


1.4.1 From INTEGER Type 
The value of the INTEGER data is assigned to a LONGINT data item. 


1.4.2 From REAL Type 
The value of the integer part of the REAL data is assigned to a LONGINT data item, When 


the magnitude of the value is too large to be represented as LONGINT, a mathematical over- 
flow occurs. 


1.4.3 From FIXED Type 
The value of the FIXED data is first converted to scale factor Q = 0, and the converted value 


is assigned to a LONGINT data item. When the magnitude of the converted value is too large 
to be represented as LONGINT, a mathematical overflow occurs, 


1.4.4 From DECIMAL Type 


The value of the DECIMAL data is first converted to FIXED type. The value of the FIXED type 
is converted as in paragraph 1.4.3. 


1.5 Conversion To REAL Type 
INTEGER, LONGINT, FIXED, and DECIMAL types may be converted to REAL type by the function 
FLOAT or by an implicit conversion under the conditions given in paragraphs 1.2.1, |.2.2, and 


1.2.4. A REAL type may be converted to a REAL type with a different precision. Conversions 
of each cf these types are described in the following paragraphs, 


1.5.1 From INTEGER Type 
The value of the INTEGER data is assigned to a REAL data item of the required precision. 


1.5.2 From LONGINT Type 


The value of the LONGINT data is assigned to a REAL data item of the required precision. 


1.5.3_ From FIXED Type 


The value of the FIXED data is assigned to a REAL data item of the required precision. 
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1.5.4 From DECIMAL Type 
The value of the DECIMAL data is assigned to a REAL data item of the required precision. 


1.5.5 From REAL Type Of A Different Precision 


When the precision of the data being converted is greater than that of the result, the data 

is truncated on the right to obtain the desired precision. When the precision of the data being 
converted is less than that cf the result, zeros are added to the right of the data to obtain 
the desired precisicn. 


1.6 Conversion To FIXED Type 


INTEGER, LONGINT, REAL, and DECIMAL types may be converted to FIXED type by the function 
FIX. A FIXED type may be converted to a FIXED type of different precision and/or scale 
factor. Conversions of each of these types are described in the following paragraphs, 
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1.6.1 From INTEGER Type 
The value of the INTEGER data is assigned to a FIXED data item with scale factor Q = 0. 


1.6.2 From LONGINT Type 
The value of the LONGINT data is assigned to a FIXED data item with scale factor Q = 0. 


1.6.3_ From REAL Type 


The value of the REAL data is assigned to a FIXED data item with the required precision and 
scale factor. This conversicn only occurs in assignment cperations and when explicitly 
specified by a FIX function call. 


1.6.4 From DECIMAL Type 
The value of the DECIMAL data of precision P and scale factor Q is converted to a FIXED 
data item of precision P' and scale factor Q'. P* and Q' correspond to precision P and scale 
factor Q of the DECIMAL data, and are computed as follows: 

P' = 1 + CEIL(P*3.322) 
When Q is a positive value: 

Q' = CEIL(Q*3.322) 
When Q is a negative value: 


Q' = - CEIL(-Q*3,322) 


When Q = 0, Q' =0. 
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Table |-1. FIXED/DECIMAL Conversions 


Number of Number of Number of Number of 
decimal bits CEIL bits decimal! digits 
digits N (N*3.322) N CEIL (N/3.322) 
1 4 1-3 1 

2 7 4-6 2 

3 10 7-9 3 

4 14 10 - 13 4 

5 a7 14 - 16 5 

6 20 17-19 6 

7 24 20 - 23 7 

8 27 24 - 26 8 

9 . 30 27 - 29 9 

10 34 30 - 33 10 

11 37 34 - 36 11 

12 40 37 - 39 12 

13 44 40 - 43 13 

14 47 44 - 46 14 

15 50 47-49 15 


The values of CEIL for an appropriate range of numbers are liste in table |-1. Function CEIL 
has the value of the next integer higher than the quotient of the number divided by 3.322, 

an approximation of the base 2 logarithm of 10. The FIXED data item of precision P' and scale 
factor Q' is then converted to a FIXED binary data item of the required precision and scale 
factor. 


1.6.5 From FIXED Type of Different Precision 


The value of the FIXED data of precision P and scale factor Q is converted to a FIXED data 
item of precision P' and scale factor Q'. 


When Q is less than Q', the data is shifted left to precision (P+Q'-Q) and scale factor Q' 
and assigned to a FIXED data item of precision P' and scale factor Q'. If (P+Q'-Q) is greater 
than P' or the maximum precision for FIXED type, high order bits may be lost and overflow 
may occur. Zeros replace low order bits vacated during the shift. 


When Q is greater than Q', the data is shifted right to precision (P+Q'-Q) and scale factor 
Q'. If the last bit shifted out is a 1, the result is incremented by 1. The result is assigned to 
a FIXED data item of precision P' and scale factor Q'. If (P+Q'-Q) is greater than P', high 
order bits may be lost and overflow may occur. 


1.7 Conversion To DECIMAL Type 
INTEGER, LONGINT, REAL, and FIXED types may be converted te DECIMAL type by the function 


DEC. A DECIMAL type may be converted to a DECIMAL type of different precision and/or 
scale factor. Conversions of each of these types are described in the following paragraphs. 


1.7.1 From INTEGER Type 


The value of the INTEGER data is assigned to a DECIMAL data item with scale factor Q = 0. 
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1.7.2 From LONGINT Type 
The value of the LONGINT data is assigned to a DECIMAL data item with scale factor Q = 0. 


1.7.3_From REAL Type 


The value of the REAL data is assigned to a DECIMAL data item with the required precision 
and scale factor. This conversion occurs in assignment operations only. 


1.7.4 From FIXED Type 


The value of the FIXED data of precision P and scale factor Q is converted to a DECIMAL 
data item of precision P' and scale factor Q'. Values P' and Q' correspond to precision P 
and scale factor Q of the FIXED data, and are computed as follows: 


P' = 1 + CEIL(P/3.322) 
When Q is a positive value: 
Q' = CEIL(Q/3.322) 
When Q is a negative value: 
Q! = -CEIL(-Q/3.322) 
When Q = 0, Q' = 0. 
The values of CEIL for an appropriate range of numbers are listed in table |-1. 
Function CEIL has the value of the next integer higher than the product of the number times 
3.322, an approximation of the base 2 logarithm of 10. The DECIMAL data item of precision 


P' and scale factor Q' is then converted to a DECIMAL data item of the required precision 
and scale factor. 


1.7.5 From DECIMAL Type Of Different Precision 


The value of the DECIMAL data of precision P and scale factor Q is converted to a DECIMAL 
data item of precision P' and scale factor Q'. 


When Q is less than Q', the data is shifted left to precision (P+Q'-Q) and scale factor Q' 
and assigned to a DECIMAL data item of precision P' and scale factor Q'. If (P+Q'-Q) is 
greater than P' or the maximum precision for DECIMAL type, high erder digits may be lost 
and overflow may occur. Zeros replace low order digits vacated during the shift. 


When Q is greater than Q', the data is shifted right to precision (P+Q'-Q) and scale factor 
Q'. The result is assigned to a DECIMAL data item of precision P' and scale factor Q'. If 
(P+Q'-Q) is greater than P', high order digits may be lost and overflow may occur. 


